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systems ENGINEERING LABORATORIES PROGRAM LIBRARY 


SOFTWARE DESCRIPTION 


CATALOG NO. 044004E 


DAT E 20 January 1971 


PROGRAM TITLE: 


810A/B Macro-Assembler 
(Stand-Alone Version) 


PURPOSE: To provide a translation of programs written in 

SYSTEMS 810A/B Assembler Language into a 
machine language equivalent suitable for loading 
and execution. 

CONFIGURATION: Minimum: SYSTEMS 810A/B, ASR-33, 8K Memory 

Optional: High Speed Paper Tape Reader/Punch, 

Line Printer, Card Reader, 7-track 
Magnetic Tape. 

SOFTWARE ENVIRONMENT .Stand-Alone 


PROGRAM LANGUAGE: SYSTEMS 810A/B Assembler Language 


SIZE: No Mag Tape I/O - 14056s 

7-Track Mag Tape I/O - 15012s 
9-Track Mag Tape I/O - 15041s 


NOTE 

The stand-alone version of the macro-assembler requires the use 
of one of the following I/O packages: 

• No Magnetic Tape I/O - SYSTEMS Catalog No. 314001A 

• 7-Track Magnetic Tape I/O - SYSTEMS Catalog No. 334001A 

• 9-Track Magnetic Tape I/O - SYSTEMS Catalog No. 334002A 


T 
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USE: The following procedure provides details for using the SYSTEMS 810A/B 

Macro-Assembler (Stand-Alone Version) with the required I/O package: 

I - ASSEMBLY 

Software packages required to assemble source programs written in SYSTEMS 
810A/B Assembler Language include: 

(1) • Catalog No. 044004 - SYSTEMS 810A/B Macro-Assembler 

(Stand-Alone Version) 

(2) Plus one of the following: 

• Catalog No. 314001 - SYSTEMS 810A/B Assembler I/O Package 

(No Mag Tape I/O) 

• Catalog No. 334001 - SYSTEMS 810A/B Assembler I/O Package 

(7-Track Mag Tape I/O) 

• Catalog No. 334002 - SYSTEMS 810A/B Assembler I/O Package 

(9-Track Mag Tape I/O) 

(3) Plus the following: 

• Catalog No. 300000 - SYSTEMS 810A/B Standard Bootstrap Package 

• Catalog No. 300001 - SYSTEMS 810A/B Standard Load/Dump Package 
The procedure required to assemble includes: 

1) MASTER CLEAR the computer; 

2) Reset all control switches; 

3) Manually enter the following Binary Bootstrap Loader into memory locations 

0-17g: 
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Octal Location 

Instruction Code | 

0 


13010U 

1 


00X000 

2 


17030U 

3 


000022 

4 


111006 

5 


111002 

6 


17030U 

7 


001016 

10 


17430U 

11 


033016 

12 


000022 

13 


000026 

14 


113017 

15 


111006 

16 


107671 

17 


007673 

U = 1 (ASR-33) 

X=4 

(ASR-33) 

U=2 (High-Speed 

X = 1 

(High-Speed 

Paper Tape) 


Paper Tape) 


4) Position the SYSTEMS 810A/B Standard Bootstrap Package (Catalog No. 
300000) in the proper input device (ASR-33 teletypewriter or high-speed 
paper tape reader); 

5) MASTER CLEAR the computer; 

6) Set control switch 0 (zero) if input is from the high-speed paper tape reader, 
or reset control switch 0 if input is from the ASR-33; 

7) Depress START twice - the Standard Bootstrap Package will be loaded; 

8) Position the SYSTEMS 810A/B Standard Load/Dump Package (Catalog No. y 
300001) in the proper input device; 

9) MASTER CLEAR the computer; 

10) Enter(006060g for the 810B) into the P-Counter; 


11) Enter 036000g into the A-Accumulator; 


12) Depress START twice; 
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13) The Standard Load/Dump Package will be loaded and the following will be 

typed on the console typewriter. (Indicating "Load Complete; End Job," mem- j 
ory high load address and next available map zero location): j 




LC 
E J 

40000 00001 


14) Position the SYSTEMS 810A/B Stand-Alone Macro Assembler paper tape 
(Catalog No. 044004) in the proper input device; 


15) MASTER CLEAR the computer; 

16) Enter 036060g 


into the P-Counter; 


17) Enter OOyTOOOg into the A-Accumulator; 

18) Set control switch 0 (zero) if input is from the high speed paper tape reader, 
orCreset control switch 0 if input is from the ASR-33; ) 

K j ■ 

SKTP 19). Set control switch 2; f:.. . ; 'V 

20) Depress START twice; 

21) The paper tape will be loaded and the names of the unresolved external sub¬ 
routines will be printed on the teletype: 

u>,ij jur ~ T 

*. iii J 

L'C~£J @ 00000BUF 

@ 0000 H$WR 

mss Sfla-s ^| Zlm 

l @ OOOOOP$PO 

7 /C£yS oooooa$de7 

/W*£@ 00000B$EF7 
@ 00000B$SP7 

Cl£ @ 13235 S 00 S 6 T 67 


s /d/ /? 

5 & r uh l jW/ €s (M-r 

[i 6* 


22) Position the required I^O package paper tape (Catalog No.^3 1400l^j 334001, or 
334002) in the proper input device; 


23) Depress START once; 

24) The paper tap.e will be loaded and the following will be printed on the teletype 
for the indicated I/O package: 
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• Catalog No. 314001 - No Magnetic Tape I/O: 

EJ 

@ 00000B$WR 
@ 00000A$DE7 
@ OOOOOE$OF7 

@ 00000B$EF7 Disregard these unresolved subroutines 
@ 00000B$SP7 
@ 00000S$ST7 
14056 00732 

• Catalog No. 334001 - 7-Track Magnetic Tape I/O: 

LC 

'EJ 

15012 00756 

• Catalog No. 334002 - 9-Track Magnetic Tape I/O: 

LC 

EJ 

15041 00762 

25) Reset control switch 2; 

26) MASTER CLEAR the computer- 

27) Enter OOlOOOg (000777g for the 810B)'into the P-Counter (this is the 
Assembler start address); 

28) Make the appropriate control switch settings for the desired options: 

(See Table - page 6) 
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csw 

SET 

RESET 

0* 

Two Pass Assembly 

One Pass Assembly 

1 

No Symbolic Output 

Symbolic Output 

2 • . 

No Object Output 

Object Output 

3 

Print error list only (CSW 1 e 

reset) 

Complete listing (CSW 1 reset) 

\4>' 

5 • /" 

Listing output on ASR-33 (CSW 

1 reset) 

Paper tape source input 

Listing output on 4P (CSW 1 
reset) 

Card source input 

6 

Object output on ASR-3 3 (CSW 

2 reset) 

Object output on HSPT (CSW 2 
reset) 

7 

List symbol table (CSW 1 reset) 

No symbol table list 

8 

Paper tape SI from ASR-33 (CSW 

5 set) 

Paper tape SI from HSPT (CSW 
5 set) 

9 

SI from ASR-33 keyboard 

No SI from ASR-33 keyboard 

. 

10 • 

Two-Pass Assembly (When Pass 

1 is completed, assembler will 
HALT at 007440g. Set control 
switch at this time, reload 
source, press START). 

One Pass Assembly 

11 

SI from Mag Tape (7-track, 
transport 1, unless CSW 14 is 
set). 

No SI from Mag Tape 

12 

BO to Mag Tape (7- or 9-track 
depending on I/O package used). 

No BO to Mag Tape 

13 

SO to Mag Tape (7- or 9-track 
depending on I/O package used). 

No SO to Mag Tape 

14 

SI from 9-track MT, Transport 

1 (CSW 11 must be set) 

No SI from 9-track MT 

*15 

Channel assembly 

No channel assembly 

(*Note - Ea 
of these 1 

irly models of the 810A were directly connected to I/O devices. If one 
'channel machines" is being used, thiscontrol swtich must be set. ) 
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29) Load the source program in the appropriate input device; 


30) Depress START twice. During Pass 1, the assembler will read all source 
input and HALT at location 007400g. At this time, the user should re¬ 
position the source input file in the proper input device, set control switch 
10, and depress START to initiate assembly Pass 2. 


NOTE 


The last record of the source input file must always be a $ character in 

column 1, followed by aiyplank characters. 

—■ 


V-/ 


NOTE 


This assembler does not support concurrent 7- and 9-track magnetic 
tape operation. 


METHOD: 


(I) PREPARING PAPER TAPE SOURCE 

If the user is preparing an original card-image source input paper 
tape via ASR-3 3, and a punch error occurs, the record in error may 
be deleted by punching an M up arrow" character ( ) before punching 

the line-feed, carriage return for that line of source. This will 
cause the entire line including the n up arrow" ( ) to be ignored by 

the assembler. The corrected line of code should follow 
immediately. 


(II) ASSEMBLER ERROR MESSAGES 

Assembler error ’’flags’ * 1 (II) appear in the source listing between the 
instruction memory location (second column) and the instruction 
octal equivalent (third column). Errors are denoted by one letter, 
signifying: 

U = Undefined Symbol 

M = Multiply Defined Symbols 

A = Address Field Missing Where Required 

Q = Undefined Operation Code 

D = Data Conversion Error 

T = Symbol Table Overflow 

E = Any Other Type of Detected Error 

Errors will cause the affected fields to be set to zero. More than 
one error may occur for any one line of code, but only the last errors 
detected will be flagged. 
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(III) SYMBOL TABLE SIZE 

The symbol table contains all defined symbols in the assembly pro¬ 
gram plus all literal constants, subroutine names, and modifier 
instructions. 

Symbol table size is approximated by the following formula: 

400 + 1365 (N-l) = S + L + C + M, 

/• 

Where: 

N = Number of 4096-word (4K) memory modules 
S = Number of symbolic addresses 
L = Number of unique literal constants defined 
C = Number of unique subroutine names called 
M= Number of times an "undefined" symbol appears in 
the variable field of an instruction combined with 
constants by (+) or (-) operators. 

(IV) MAGNETIC TAPE PROCESSING 

• 7-Track Magnetic Tape 

• Mag Tape source input assumed to be 80-character records 
(1 CPW), recorded at a density of 556 BPI in BCD mode. 

• Binary object output is formatted as 165-character records 
(3 CPW) at 556 BPI 

• Mag Tape source output will be 102 character records 
(1 CPW) recorded at 556 BPI in BCD mode. 

• 9-Track Magnetic Tape 

• Mag Tape source input is assumed to be 40-character 
records (2 CPW) recorded at a density of 800 BPI in binary 
mode. 

€ Binary object output is formatted as 110-character records 
(2 CPW) at 800 BPI. 

• Mag tape source output will be 102-character records 

(1 CPW) recorded at 800 BPI in binary mode. 

• All mag tape records consist of 8-bit, full-ASCII characters. 

• Mag Tape source input is assumed to be on tape transport #1. 

• Mag Tape object output is assumed to be on tape transport #2. 

• Mag Tape source output is assumed to be on tape transport #3. 
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• The assembler will process continuous source program modules 
on magnetic tape until a EOJ code (record with $ character in 
Column 1) is encountered. 


NOTE 


Additional reference information on the operation and use of the 
SYSTEMS 810A/B Macro Assembler may be obtained from the 
following publications: 

• SYSTEMS 81OA GENERAL PURPOSE COMPUTER 
REFERENCE MANUAL (Publications No. 301-095049-007) 

• SYSTEMS 810A/B ASSEMBLER REFERENCE MANUAL 
(Publications No. 323-095052-002) 

• SYSTEMS 810A/B ASSEMBLER TECHNICAL MANUAL 
(Publications No. 322-095094-001) 
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810A/B MACRPt-ASSEMBlfcR 


Q44QQ4E 


01/20/71 PAGE 


1 


00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 


* 044004E 810A/B MACR0 ASSEMBLER (1/20/71) l j - U . i.0 

* 00000020 

* 0000030 I 

* 000004C 

« ooooosr 

* 000006C 
****** UNIT And CHANNEL INSTRUCTI0NS 0N Unit 1/0 MACHINES **********»***000007( 

* oooooet 

***** SET C0NTR0L SWITCH 16 F0R CHANNEL ASSEMBLY 000Q09C ' 

* ooooioc 

* 0000111 

* 000013C 

* ooooi^r 

*' 00001 In 

* SENSE SWITCH SETTINGS ^'016 


* 

***** 


SET C0NTR0L SWITCH 16 F0R CHANNEL ASSEMBLY 


0 SET 2 PASS RESET 1 PASS 

1 SET N0 SYM80LIC RESET-SYMB0LIC 0UTPUT 

2 SET N0 0BJECT RESET-0BJECT 0UTPUT 

3 SET ERR0R LIST 0NLY 

4 SET LIST 0N AS33 RESET- LIST 0N PRINTER 

5 SET PAPER TAPE S0URCE RESET CARD S0URCE 

6 SET 0BJECT 0N AS33 RESET-0BJECT 0N H S 

7 SET LIST SYMR0L TABLE 

8 SET S0URCE 0N 33 RESET S0URCE 0N HS 

9 SET S0URCE 0N KEYB0ARD 

10 SET PASS 2 AFTER PASS 2 

11 SET MAG TAPE S0URCE 0N TRANSP0RT 1 

12 SET MAG TAPE 08JECT 0N TRANSP0RT 2 

13 SET MAG TAPE 0N TRANSP0RT 3 - SYMB0LIC 


00032 


« 

14 

SET, 

WITH 11 = 9-TRK 

00033 


* 

15 

SET 

CHANNEL ASSEMBLY 

00034 

00000 

oooooooo 

REL 



00035 

00000 

70000000 

0RG 

0 


00036 

00000 

11100612 

BRU 

MNEM 

START 


MAG TAPE 


11/01/67 


IQ 

00. w i 

000.220 
0 0 0 V ?. 3 f 

0 0 0 0 2 C 
0 0 0 0 2:. C : j 

00002600 
00002700 
00002' 
000029 
0000 3 ; 
00003100 
00003200 
00003300 
0000340U 
00003500 
*B00003600 
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JO 037 
:10038 
30039 

10040 

>0041' 

30042 

30043 

30044 

30045 

30046 
10047 
>0048 

10049 

10050 

10051 

10052 
>0053 
>0054 
•0055 
>0056 

10057 

10058 

10059 

10060 
>0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 


08001 OOOOOOW 


00002 00000001 


00003 57500000 


00004 

00005 

00006 

00007 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00020 


00021 

00022 

00023 

00024 

00025 

00026 

00027 

00030 

00031 


»••••••••••••••••••••••••••••••••*•«••*•••••**•************* 

* CHANGE MADE S0 THAT ALL CORE IS USED FOR SYMB0L TABLE PREVI0USLY 

• WENT MEMH-106 JPD 

♦ ■a*#***##*#*#*******##**#*** ********* 

SYMBOL TABLE-" 67 JDJ 

* F IRST L0CATI0N AFTER All SUBR0UTJNES JPD 

L0W BSS 1 FIRST L0CATJ0N 0F SYMB0L TABLE 

•••«•««•••••••»••••••••*••*••••**•*•************************ 

••••♦•a******************************************************* 

SSL0 EAC SBUF 


35400476 

35400415 

00000000 

25400000 

12107170 

12107207 

01077774 

55100000 

35400370 

00000146 

11300007 

25400000 

35400374 


00000000 

02077777 

16010000 

01400003 

03100042 

01077777 

03400003 

01400003 

04100001 


L006 

L008 

RECC 

PRNT 


PRT4 

TL0W 
ALN0 
* ■ 


DAC 

DAC 

HLT 

DAC 

SPB 

SPB 

LAA 

CALL 

DAC 

DATA 

8RU* 

DAC 

DAC 


THIG ZZZ 
LBA 
AMB 
LAA 
STA 
LAA 
STA 
LAA 
• STB 


BUFF* * 
BUFF*’ 

** 

CLIN 

HDNG 

*•4 

HSWR 

LN0-1 

102 

PRNT 

0 

LN0*3 


«• 

*•1000! 

3,1 

TMHI 

s-l 

3,1 

3,1 

HIGH 


74 

\Z/ 


00003700 

00003800 

00003900 

00004008 

•#0tt04*M' 

00004200 

00004300 

00004400 

00004500 

00004600 

00004700 

00004800 

00004900 


REC0RD COUNTER 

COUNT LINES 

MDL 2/11/69 

• C 


00005000 

00005100 

00005200 

PRINTER HEADING 

9/12/67 

JDJ 


00005300 

10/26/67 

JDJ 

• B 

00005400 

PRINT A LINE 

09/18/67 

JDJ 


00005500 

00005600 

00005700 

00005800 

00005900 

UNITS POSITION OF ADDER 

10/17/67 

JDJ 

• B 

00006000 

00006100 

00006200 

ENTER COMPUTE MEM HUGH 

9/11/67 

JDJ 

• B 

00006300 

JUST INSIDE MEMORY 

10/26/67 

JDJ 

• B 

00006400 

ADD 4K, ZERO INCLUDED 

9/11/67 

JDJ 

• B 

00006500 

RETRIEVE CONTENTS T0 SAVE 

9/11/67 

JDJ 

•B 

00006600 

SAVE IF VALID LOCATION 

9/11/67 

JDJ 

«B 

00006700 

STORE A LOT OF BITS 

10/26/67 

JDJ 

«B 

00006800 

XX002 OCTAL IN 4K MODULES 

9/11/67 

JDJ 

*B 

00006900 

9/11/67 

JDJ 

*B 

00007000 

SET MEM HIGH TO THIS 

9/11/67 

JDJ 


00007100 

A-REG c 0 OR -1 



•E00007200 
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3 


00073 



« 




B-REG * 7777,17777,27777, 

ETC, THRU 67777 

*E 10007300 

00074 

00032 

00000027 


ABA 



RESULT = 0,7777,17777,ETC 

, THRU 67777 

*fcP '007400 

00075 

00033 

00000022 


SA2 



SKIP IF END 0N A LESS-THAN-32K MACHINE 

»Ef <007500 

00076 

00034 

06067777 


SMA 

= '67777 

END 0N A 32K MAHCINE 



*Et 007600 

00077 

00035 

00000023 


SAN 



32K - SKIP IF MORE C0RE LEFT F0R SYMB0L TABLE #£0j007700 

00078 

00036 

11300021 


BRU» 

THIS 


EXIT 

9/11/67 

JDJ 

*B 00007800 

00079 

00037 

01100042 


LA A 

TMHI 


RESTORE 

9/11/67 

JDJ 

*B 00007900 

00080 

00040 

03400003 


STA 

3,1 


LOCATION XX002 

9/12/67 

JDJ 

«B 00008000 

00081 

00041 

11100023 


BRU 

THIG-t-2 

G0 TRY MEM PLUS 4k M0RE 

9/12/67 

JDJ 

*B 00008100 

00082 

00042 

00000000 

TMHI 

DATA 

0 


TEMP STORAGE MEM HIGH 

9/11/67 

JDJ 

• B OOOQ82GQ 

00083 

00043 

35400201 

L044 

DAC 

BSLC 


PUNCH BUFFER START ADDR, 



00008300 

00084 

00044 

00000000 

D2R0 

DATA 

0 





00008400 

00085 

00045 

00000261 

K261 

DATA 

'261 


ONE FOR TOP OF FORM 

11/18/67 

JDJ 

*B 00008500 

00086 

00046 

35401003 

CDTB 

DAC 

C5BL 


mnembler op code table 

10/23/67 

JDJ 

»8 00008600 

00087 

00047 

35405434 


DAC 

MB6G 


MACRO NAMES 

10/23/67 

JDJ 

*B OC008700 

00088 

00050 

35401021 


DAC 

0P3O 


SYSTEM NAMES 

10/23/67 

JDJ 

#B OCOOh 

00089 

00051 

35401021 


DAC 

0P3O 


form names 

10/23/67 

JDJ 

«8 OUOOb 

00090 

00052 

35401021 


DAC 

0P3Q 


EQUIVILANCE names 

10/23/67 

JDJ 

• B 00009b, 

00091 

00053 

35401021 


DAC 

0P3O 


USER SPECIAL NAMES 

10/23/67 

JDJ 

#B 000091 

00092 

00054 

35401021 


DAC 

0P3O 


UNASSIGNED NAMES 

10/23/67 

JDJ 

»B 000092! 

00093 

00055 

35401021 


DAC 

0P3O 


UNASSIGNED NAMES 

10/23/67 

JDJ 

*B 0000930^ 

00094 

00056 

00000002 

NSRH 

BSS 

2 


NAME PACK 2 CHAR PER WORD 

10/23/67 

JDJ 

*B 00009400 

00095 

00060 

00000001 

EQ 

BSS 

1 





00009500 

00096 

00061 

00000001 

T 

BSS 

1 





00009600 

00097 



# * 

a 

ft ft 

ft ft ft 


* # 

« « 

» * 00009700 

00098 



« 

FOLLOWING 

RESERVED 

FOR BTC LOCATIONS IF LOCATED AT 1000 

JPD 

00009800 

00099 

00062 

00000012 


BSS 

10 





00009900 

00100 



* # 

# 

«■ # 

« « ft 

ftftftftftftftftft 

ft ft ft 

« « 

* * oooioooo 

00101 

00074 

00000003 

ID 

BSS 

3 





00010100 

00102 

00077 

00000001 

IM 

BSS 

1 





00010200 

00103 

00100 

00000001 

DIT2 

BSS 

1 





00010300 

00104 

00101 

00000001 

DIT3 

BSS 

1 





00010400 

00105 

00102 

00000001 

DIT4 

BSS 

1 





00010500 

00106 

00103 

00000001 

D I T5 

BSS 

1 





00010600 

00107 

00104 

00000001 

FET9 

BSS 

1 





00010700 

00108 

00105 

00000002 

H0LD 

BSS 

2 





00010800 
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00109 00107 00000001 DFl BSS 
90110 00110 00000001 DITJ BSS 
00111 00111 00000001 DIT1 BSS 
00112 00112 00000001 DIT6 BSS 
00113 00113 00000001 SIGN BSS 
00114 00114 00000004 DIT7 BSS 
00115 00120 00000001 SLIT BSS 
00116 00121 00000001 BCIL BSS 
00117 00122 35402566 LIT1 DAC 
00118 00123 35402415 MERR DAC 
00119 00124 35400371 LLN0 DAC 
00120 00125 35406212 PS99 DAC 
00121 00126 00000001 PASS BSS 
00122 00127 00000010 NACA BSS 
00123 00137 00000001 TlMP BSS 
00124 00140 00000001 T2Mf BSS 
00125 00141 OOQOOOOl T3MP BSS 
00126 00142 00000001 T4MP BSS 
00127 00143 00000001 MIND BSS 
00128 00144 00000003 SI BSS 
00129 00147 00000001 TMPY BSS 
00130 .00150 00000001 ENDF BSS 
00131 00151 00000001 SFLA BSS 
00132 00152 00000001 MAPF BSS 
00133 00153 00000001 SIZE BSS 
00134 00154 00000001 CNTR BSS 
00135 00155 00000001 PDEV BSS 
00136 00156 00000001 T0TL BSS 
00137 00157 00000001 IND BSS 
00138 00160 00000001 SCNT BSS 
00139 00161 00000001 SCLT BSS 
00140 00162 00000001 SCTM BSS 
00141 00163 00000001 SCF0 BSS 
00142 00164 00000001 SCDF BSS 
00143 00165 00000001 SCCC BSS 
00144 00166 00000165 C0LP EQU 


1 

1 

1 

1 

1 

4 

1 

1 

LITR 

MR24 

LN0 

EDP 

1 

8 

l 

1 

1 

1 

1 

3 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

SCCC 


01/20/71 PAGE 


4 


, m 


PASS FLAG(1ST = N0N 0 1 2ND@0 


- INDICAT0R 


sc'. lI r. flag(0FFbo,0n*n0 

SCAN TERM,CHAR < SP 0R») 
SCAN FLD 0CC FLAG(BLANKsO 
SCAN ADDR DEF FLAG DEF«0) 
SCAN CARD C0L P0SU1-72) 


10/70 KSS 


00010900 
00011000 
00011100 
00011200 
00011300 
#E0001140Q 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
0 0 Q-l 3 0 0 0 
00013100 
00013200 
00013300 
00013400 
00013500 
00013600 
00013700 
00013800 
00013900 
00014000 
00014100 
00014200 
00014300 
00014400 
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J0145 00166 00000001 

)0146 00167 00000001 

30147 00170 OOOOOOOt 

30148 00171 00000001 

30149 00172 00000171 

30150 00172 00000001 

30151 00173 00000001 

30152 00174 00000001 

30153 00175 00000001 

30154 00176 00000001 

30155 00177 OOOOOOQ1 

30156 00200 00000001 

30157 

30158 00201 00000001 

00159 00202 00000001 

30160 00203 00000001 

30161 00204 00000154 

30162 00360 00000002 

30163 00362 00000360 

30164 00362 00000001 

30165 00363 00000362 

30166 00363 00000001 

00167 00364 00000363 

30168 00364 00000001 

30169 00365 00000364 

30170 00365 00000001 

30171 00366 00000365 

30172 00366 00000001 

00173 00367 00000001 

00174 00370 00000367 

00175 

00176 00370 00000001 

00177 00371 00000004 

00178 00375 00000001 

00179 00376 00000004 

00180 00402 00000004 


SCSN 

BSS 

1 

SCSA 

BSS 

1 

SCAD 

BSS 

1 

SCRL 

BSS 

1 

REL 

EQU 

SCRL 

RLC 

BSS 

1 

LC 

BSS 

l 

L0AD 

BSS 

1 

DATA 

BSS 

1 

BAD 

BSS 

1 

PUNF 

BSS 

1 

BL0C 

BSS 

1 

* V 


PUNCH BUFFE 

8SLC 

BSS 

1 

BSI2 

BSS 

1 

SC0D 

BSS 

1 


BSS 

108 

CKSM 

BSS 

2 

PBUF 

EQU 

CKSM 

TMP0 

BSS 

1 

CCNT 

EQU 

TMPQ 

TMP1 

BSS 

l 

PS61 

EQU 

TMP1 

TMP2 

BSS 

1 

PS62 

EQU 

TMP2 

TMP3 

BSS 

l 

SYM 

EQU 

TMP3 

TMP4 

BSS 

l 

TMP5 

BSS 

l 

TASS 

EQU 

THP5 

• 


START PRINT 


BSS 

1 

LN0 

BSS 

4 


BSS 

1 


BSS 

4 

BUFF 

BSS 

4 


am/2®/7i ip#©* 


SIGN ®F SUB—ADDRf*=§» —ssN® 
SCAN SUB-ADDRESS 
SCAN ADDRESS 

SCAN REL FLAG«ABS=®,REIL5- 

REL L®C CNTR FLA®(A8S=®J 
LSCATI8N COUNTER 
L0AD ®P CDDE 

INSTR.HR DATA SEINE ASSEW 
C®DE vm ADD-0N 
PUNCH FtAG U N I Is®,LEAD=N0 
BUFFER MfilRD P®INTER 

BUFFER START L®CfFR»W U-Cl 
BUFFER SI2E(® JE -211 

BUFFER DATA M0RDS 

(ADD «IGN0RE ®VERFL@MJ 


TEMP0RARY STORAGE 
TEMPfRARY STORAGE 


TEMPfRARY STORAGE 
BUFFER 

LINE NUMBER 


***' 

% 

®®®&4»5®B 5 
riMii 
®®®JL4R7®® f 
ii- omi4jffi®^ j 
®®ffll4»®®® £ 

mwtswmf 

®®®1SS®#« 
®®®153® 
®®®»® 
®®B155® 
®®®15<6® 
®®E157®# ; 
®®®15®®1 

®f.r®lc ** 

®tL;®Ma, 

®uJ®.1Iis£. 

®0llD164:- 



®ffl®l«*7®® 


®®®l ftg®® %. 
®®®17B®®» ■ 
0001710 ® 
0IDIB17M®<>. 
ffl®®17®D® v. 
fflffi®!^®® 
®®®1759|.:' 
®®® 17 « 0 ® 
®®®177B£ 
000JJRM8 > 


£ 
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00181 

00406 

00000402 

8UF 

EQU 

BUFF 



00018100 

00182 

00406 

00000001 


BSS 

1 

ERR0R FLAG(SP 0R /) 


00018200 

00183 

00407 

00000006 


BSS 

6 

0CTAL INSTUCTI0N 


00018300 

00184 

00415 

00000240 


DATA 

r 240 

BLANK F0R C0L 1 LINE 

PRNT 

OOC' ’•0 

00185 



« 


CARD 

INPUT BUFFER START 


oooiw>wO 

00186 

00416 

00000004 


BSS 

4 

SYMB0LIC L0CATI0N 


00018600 

00187 

00422 

QOOOOOOl 


BSS 

1 

ERR0R FLAG < SP 0R/) 


00018700 

00188 

00423 

00000004 


BSS 

4 

SYMB0LIC 0PERATI0N 


00018800 

00189 

00427 

00000001 


BSS 

1 

ERR0R FLAG(SP 0R/> 


00018900 

00190 

00430 

OO0QOO16 


BSS 

14 

variable field 


00 >19000 

00191 

00446 

00000031 


BSS 

25 



00019100 

00192 

00477 

00000027 


BSS 

23 

C0MME|}IT$ 


00019200 

00193 

00526 

oodoooio 


BSS 

8 

IDENT 


00019300 

00194 

00536 

00000536 

BFEN 

EQU 

« 

INPUT CARD AREA+1 

9/06/6?* JDJ 

00019400 

00195 

00536 

00000001 


BS$ 

1 

ERR0R SPALER 

01/13/68 JDJ *« 

00019500 


00196 


• ’ • 

* s'w I 

TCHES 

; USED 

By MACR0 SUBR0UTINES 

10/23/67 

JDJ 

#B 

00019600 

00197 

005J7 

oooooooo 

F8P8 

DAtA 

0 

GPLT LH-RH DATA INDJCAT0R 

10/23/67 

JDJ 

• B 

000i9f00 

00198 

00540 

00000000 

U8BT 

DATA 

0 

UNLA LH-RH INDICAT0R 

10/23/67 

JDJ 

• B 

00019800 

00199 

00541 

oooooooo 

PNUM 

DATA 

0 

PARAMETER NUMBER F0R SCPL 

10/23/67 

JDJ 

#B 

00Q19900 

00200 

00542 

oooooooo 

P4BD 

DATA 

0 

ACCUMULATED DECIMAL PBd ». 

10/23/6? 

JDJ 

»B 

0U02D00Q 

00201 

00543 

oooooooo 

A999 

DATA 

0 

AT SIGN 999 ERR0R FLAG 0VERFL&« 

10/23/67 

JDJ 

*P 

00020100 

00202 

00544 

oooooooo 

HPXX 

DATA 

0 

HIGHEST INT LABEL BY G4*D 

10/23/ A 7 

JDJ 


r' 'pp2 f 

00203 

00545 

oooooooo 

TAXX 

DATA 

0 

W0RK AREA FR0M 

10 / 2 : fl 

JDJ 

• B 

L j Sft 0 3 1 

00204 

00546 

oooooooo 

NATF 

DATA 

0 

NAME TABLE 0 VERFL 0 W q*CR 

il)/23/67 

JDJ 

• R 

00020 

00205 

00547 

oooooooo 

ML0C 

DATA 

0 

PRESENTS 0F L0CATI0N FLT 

*0/2 If 67 

JDJ 

• B 

00020!* 

00206 

00550 

oooooooo 

LLFD 

DATA 

0 

SIZE 0F L0CATI0N FIELD 

10/2j?67 

JDJ 

• B 

000206.,* 

00207 

00551 

oooooooo 

M0PC 

DATA 

0 

PRESENTS 0F 0P C0DE FIELD 

10/23/^7 

JDJ 

*B 

000207 r 

00208 

00552 

oooooooo 

L0PC 

DATA 

0 

SIZE 0F 0P C0DE FIELD 

10/23/67 

JDJ 

• Bv 

000208 

00209 

00553 

oooooooo 

T0PC 

DATA 

0 

TYPE 0F 0P C0DE 

10/23/67 

JDJ 

«B 

00020$ 

00210 

00554 

oooooooo 

MVFD 

DATA 

0 

PRESENTS 0F VARIABLE FLD 

10/23/6, 

- JDJ 

*B 

00021 

00211 

00555 

oooooooo 

MC0L 

DATA 

0 

C0MMENT CARD 

10/23/ 


*B 

0002 : 

00212 

00556 

oooooooo 

M10C 

DATA 

0 

INDIRECT 0P C0DE 

^0/23/ h 

f IgDJ 

*B 

0 0021*; a 

00213 

00557 

oooooooo 

ERRM 

data 

0 

GENERAL ERR0R N0TATJ0N 

10/23/6/' 

JDJ 


0002 -y 

00214 

00560 

oooooooo 

E0MR 

DATA 

0 

END 0F MACR0 C0DE BIT 

10/23/67 

/VDJ 


00021 

40245 

.00561 

oooooooo 

PFWD 

DATA 

o • 

• * PACK FLIP-FL0P SW LH-RH 

10/23/67 

JDJ 

» B "5 

r 0002150 

0 0216 

00562 

oooooooo 

PDSW 

DATA 

0 

PADDING SW F0R PACK 

10/23/67 

, JDJ 

«B 

000216c 


*--4r s 
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00217 

00563 

00000000 

HFUl 

DATA 

0 

half FULL W0RD IN PACK 

10/23/67 

JDJ 

#B 

00021/00 

00218 

00564 

00000000 

AD0N 

DATA 

0 

ADD-0N SW F0R MLAB 

10/23/67 

JDJ 

#B 

00021800 

00219 

00565 

oooooooo 

N0PR 

DATA 

0 

N0 PR0CESS CURRENT EXPND 

10/23/67 

JDJ 

#B 

0002190C 

00220 

00566 

00000000 

MDMR 

DATA 

0 

MULTIPLY DEFINED NAME MLAB10/23/67 

JDJ 

«B 

Q0022Q0f 

00221 

00567 

oooooooo 

UDMR 

DATA 

0 

UNDEFINED NAME F0R MLAB 

10/23/67 

JDJ 

#B 

00022101 

00222 

00570 

oooooooo 

PAFD 

DATA 

0 

PRESENT-ABSENTS 0F FIELD 

10/24/67 

JDJ 

#B 

00022201 

00223 

00571 

oooooooo 

LEDP 

DATA 

0 

LENGTH 0F DATA PACKED 

10/24/67 

JDJ 

#B 

00022301 

00224 

00572 

oooooooo 

PFCT 

DATA 

0 

PFXF CHARS READ CNTR 

10/24/67 

JDJ 

#B 

00022401 

00225 

00573 

oooooooo 

PXWK 

DATA 

0 

TEMP DATA ST0RAGE PXFX 

10/24/67 

JDJ 

#B 

0002250C 

00226 ‘ 

00574 

oooooooo 

SPDL 

DATA 

0 

SPACE DELIMITER IND PV.FD 

10/24/67 

JDJ 

#8 

0002260C 

00227 

00575 

oooooooo 

STOP 

DATA 

0 

PACK C0UNTER F0R C0MMENTS 

10/24/67 

JDJ 

«B 

00022700 

00228 

00576 

oooooooo 

DCUN 

DATA 

0 

CHARACTERS UNLACED BY DC0M1O/24/67 

JDJ 

#B 

0002280C 

00229 

00577 

oooooooo 

CDCT 

DATA 

0 

C0UNT C0NTR0L SW F0R DC0M 

10/24/67 

JDJ 


00022900 

00230- 

00600 

oooooooo 

DC-MX 

DATA 

0 

DC0M UNLACE MAX C0NTR0L 

10/24/67 

JDJ 

• B 

00023000 

00231 

00601 

oooooooo 

DC AS 

DATA 

0 

DC0M ASCII BASE C0UNTER 

10/24/67 

JDJ 


0 0 0 2 31 o f 

00232 

00602 

oooooooo 

EMSW 

DATA 

0 





0 0 C 

00233 

00603 

oooooooo 

EXPN 

DATA 

0 

EXPAND MACR0 SW 

10/24/67 

JDJ 

*B 

OOL 

00234 

00604 

oooooooo 

MBYP 

DATA 

0 

MACR0 BY PASS SWITCH 

10/24/67 

JDJ 

#B 

0 0 0 . | 

00235 

00605 

oooooooo 

MINP 

DATA 

0 

MACR0 IN ST0RAGE PR0CESS 

10/24/67 

JDJ 

# B 

0 0 0 2 

00236 

00606 

oooooooo 

PBIN 

DATA 

0 

C0NVT PAR T0 BIN 

11/07/67 

JDJ 

«B 

0 0 02 

00237 

00607 

oooooooo 

LSUP 

DATA 

0 

LIST-N0 LIST 0PTI0N 

12/19/67 

JDJ' 

#00002. ,0 

00238 

00610 

25400000 

DAC 

DAC 

«» 





00023800 

00239 

00611 

00177316 

1000 

DATA 

PASS-DAC 





#£00023900 

00240 

00612 

01300003 

MNEM 

LAA* 

SSL0 

0BTAIN LAST L0CATI0N USED BY ASSEMBLER 


00024000 

00241 

00613 

03100002 


STA 

L0W 

SAVE F0R FIRST L0CATI0N 0F 

SYMB0L 



00024100 

00242 

00614 

12100021 


SPB 

thjg 

G0 C0MPUTE MEM HIGH 

9/12/67 

JDJ 

#B 

00024200 

00243 

00615 

01077777 


LAA 

s-1 


10/26/67 

JDJ 

#B 

00024300 

00244 

00616 

03107020 


STA 

PIDI 

SET $PID INDICAT0R T0 N0 

JDJ 



0002440- 

00245 

00617 

12107005 


SPB 

2RPG 

SET PAGE T0 0NE 

JDJ 



0002450 r 

00246 

00620 

01100017 


LAA 

TL0W 

REST0RE FIRST L0CATI0N 0F 




00024600 

00247 

00621 

03300002 


STA# 

L0W 

SYMB0L TABLE IF RESTART 0F 

PASS 2 



00024700 

00248 

00622 

12103706 


SPB 

SSSS 

0F PASS 2 




00024800 

00249 

00623 

25401200 


DAC 

*1200 



CK A 

00024900 

00250 

00624 

11106513 


BRU 

END2 


11/01/67 

JDJ 

#B 

00025000 

00251 

00625 

01070400 


LAA 

o * 170400 


11/01/67 

JDJ 


#800025100 

00252 

00626 

02070410 


LBA 

s»170410 





00025200 
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1253- 

00627 

12103706 

SPB 

SSSS 

TEST F0R C.iANNEL ASSEMBLY - C0NTR0L 

SWITCH 

0* *^5300 

3254 

00630 

25401700 

DAC 

* 1700 





C -U25400 

3255 

00631 

11100634 

8RU 

#♦3 





J0025500 

3256 

00632 

01030601 

- LAA 

• .«.#130601 


-11/01/67 

JDJ 

-* 

§00025600 

3257 

00633 

02030600 

IBA 

s * 130600 


11/0*/67 

JDJ 

»B 

bnnc.4/00 

3258 

00634 

04101503 

STB 

LPiE 


11/01/67 

JDJ 

*8 

00025800 

3259 

00635 

03101504 

STA 

LPID 


11/01/67 

JDJ #B0Q025900 

3260 



# SET MACR0 T0 RESTART 


11/02/67 

JDJ 

#B 

00026000 

3261 

00636 

01104406 

LAA 

NPAD 

SET PACK ADR T0 BEGIN 

11/02/67 

JDJ 

• B 

00026100 

3262 

00637 

03104404 

STA 

PDAD 


11/02/67 

JDJ 

«B 

C .•'26200 

3263 

00640 

01104410 

LAA 

BANT 

SET NAME TABLE ADR T0 

BEG 11/02/C7 

JDJ 

• B 

00026300 

1264 

00641 

03104407 

STA 

LANL 


11/02/67 

JDJ 

• 8 

00026400 

1265 

00642 

02077777 

EX01 LBA 

*-l 

SET F0RM IN ERR0R 

10/26/67 

JDJ 

#B 

C0026500 

1266 

00643 

04105671 

STB 

FDER 

IF FDAT PRECEEDS F0RM 

9/07/67 JDJ 


00026600 

1267 

00644 

01000260 

LAA 

* 1 260 

’26 HER0 

10/17/67 

JDJ 

#B 

00026700 

268 

00645 

03101760 

STA 

CERW-3 

2ER0 THE C0UNTER 

10/17/67 

JDJ 

#P 

00026800 

1269 

00646 

03101761 

STA 

CERW-2 


10/17/67 

JDJ 

#B 

Go0°6900 

70 

00647 

03101762 

; STA 

CERW-1 


10,17/67 

JDJ 

#B 

00027000 

n 

00650 

03101763 

STA 

cerw 


10/17/67 

JDJ 

• B 

00027100 

f2 

00651 

01000001 

LAA 

«1 

SET AT SIGN BASE T0 1 

11/17/67 

JDJ 

*B 

00027200 

'3 

00652 

03100544 

STA 

HPXX 

T0 RESET TABLE 

11/17/67 

JDJ 

#B 

00027300 

| 

00653 

L -003 

CLA 


RESET BASE T0 INVALID 

11/17/67 

JDJ 

#8 

00027400 

275 

00654 

03112251 

STA 

AHTU+1 

IN P0CITI0N 1 

11/17/67 

JDj 

#B 

00027500 

276 

0.0655 

12104465 

$PB 

PAST 

G0 RESET TABLE T0 1 T0 

16 11/17/67 

JDJ 

#B 

00027600 

277 

00656 

00000003 

cla 





- 

00027700 

278 

00657 

03100006 

STA 

RECC 

RESET REC0RD C0UNTER 

MDL 2/11/69 

*C 


00027800 

279 

00660 

03300002 

STA# 

L0W 



CKA 

UQ02790Q 

280 

00661 

02100611 

lba 

LOGO 





00028000 

281 

00662 

03500610 

STA 

DAC, 1 





0002810* 

282 

0066? 

**000026 

IBS 






0002820 

283 

00664 

1110**6* 

BRU 

#•2 





0002830^ 

284 

00665 

02077720 

LBA 

s * «60 


10/26/67 

JDJ 


00028400 

285 

0066' 

52100000 

STB 

SL1NE 





00028500 

286 

0(667 

02077777 

LBA 

»•! 


10/26/67 

JDJ 

•B 

00028600 

287- 

00620 

04100203 

STB 

SC0D 





00028703 

288 

00671 

00130400 

SNS 

0 

1 PASS/2 PASS 

11/03/67 

JDJ 

#B 

00028800 
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30289 

00672 

00000020 

ASC 


SET F0R 1ST PASS 




P j. 

30290 

00673 

03100126 

STA 

PASS 

1ST PASS/2ND PASS 




J (j C - V 0 w 

30291 

00674 

12102032 

SPB 

CL0T 

PUNCH I NT IALIZE 




u 0 0 2 910 0 

30292 

00675 

01000260 

laa 

= ’260 


10/26/67 

JDJ 

*B 

0 029200 

30293 

00676 

03100372 

STA 

LN0 + 1 





0 029300 

00294 

00677 

03100373 

STA 

LN0 + 2 





0 029400 

00295 

00700 

03100374 

STA 

LN0 + 3 





00029500 

00296 

00701 

03100371 

STA 

LN0 





00029600 

00297 

00702 

00000003 

EX02 CLA 






00029700 

00298 

00703 

03107741 

STA 

LSFG 

RESET ASR LISTING FLAG 

09/22/67 

JDJ 


00029800 

00299 

00704 

03102541 

STA 

augm 





*E00029900 

00300 

00705 

03100060 

STA 

EQ 





00030000 

00301 

00706 

03100175 

STA 

DATA 





0 0‘0 3 010 0 

00302 

00707 

03100174 

STA 

L0AD 





00030200 

00303 

00710 

03100143 

' STA 

MIND 





00030300 

00304 

00711 

03100121 

STA 

8CIL 





00030400 

00305 

00712 

03100120 

STA 

SLIT 





0i030500 

00306 

00713 

03105746 

STA 

FD0P 

CLEAR FDAT PR0CESS0R 

09/20/67 

JDJ 


0.03061 

00307 

00714 

01000146 

LAA 

= 102 


10/26/67 

JDJ 

*B 

0 u 0 3 0 7 

00308 

00715 

03100015 

STA 

PRT 4 

RESET T0 102 CHARACTERS 

09/22/67 

JDJ 


0’ 0308 

00309 

00716 

01000.240 

laa 

* ’ 240 

SPACE 

10/26/67 

JDJ 

*B 

Ol03091 

00310 

00717 

03100370 

STA 

LN0-1 





000310C 

00311 

00720 

03100375 

STA 

LN0 + 4 





00031100 

00312 

00721 

01100603 

LAA 

EXPN 

GET MACR0 EXPAND SW 

11/02/67 

JDJ 

• B 

00031200 

00313 

00722 

00000024 

SAP 


PLUS MEANS N0 

11/02/67 

JDJ 

«B 

00031300 

00314 

00723 

11105462 

BRU 

MBE4 

MINUS MEANS YES 

11/02/67 

JDJ 

#B 

00031400 

00315 

00724 

12101513 

SPB 

CARD 

INPUT S0URCE STATEMENT 

09/22/67 

JDJ 


0 0 J3 315 0 0 

00316 

00725 

14100006 

IMS 

RECC 

INCREMENT REC0RD C0UNTER 

MDL 2/11/69 

#C 


00?031600 

00317 

00726 

01100604 

laa 

mbyp 

GET MACR0 BY PASS SW 

11/02/67 

JDJ 

*B 

0 CfO 317 0 *" 

00318 

00727 

00000024 

SAP 


PLUS N0 

11/02/67 

JDJ 

*B 

00931800 

00319 

00730 

11105465 

BRU 

MBE5 

MINUS YES D0 BY PASS 

11/02/67 

JDJ 

«B 

00031900 

00320 

00731 

0110Q605 

LAA 

MINP 

GET MACR0 IN ST0RAGE PR0C 

11/02/67 

JDJ 

«B 

00032000 

00321 

00732 

00000024 

SAP 


PLUS MEANS N0 

11/02/67 

JDJ 

«B 

00032100 

00322 

00733 

11105424 

BRU 

MISP 

MINUS G0 ST0RE PR0T0TYPE 

11/02/67 

JDJ 

*B 

00032200 

00323 







00032300 

00324 



« change 

MADE S0 THAT 

BLANK CARD IS N0T IGN0RED 




00032400 
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S10A/B MACR0-ASS6MBIER 


0325 ###*#**#****####**#««««*# 00032500 


0326 

00734 

01100126 


LAA 

PASS 

LABEL REM0VED BY JDJ 



00032600 

.0327 

00735 

00000022 


SAZ 






00032700 

>0328 

00736 

11100741 


BRU 

0PER 

G0 EXAMINE NEW REC0RD 

09/22/67 

JDJ 


00032800 

58329 

00737 

02100020 

’ •' 

LB A 

ALN0 

ADDRESS 0F LINE C0UNTER 

10/17/67 

JDJ 

#B 

00032900 

J 0330 

00740 

12101066 


SPB 

DAFA 

G0 COUNT IN DECIMAL By 1 

10/17/67 

JDJ 

«B 

00033000 

10331 



* 


0P-C0DE PR0CESS0R 




00033100 

10332 

00741 

01077777 

0PER 

LAA 

3-1 

RESET FLAG 

10/26/67 

JDJ 

*B 

00033200 

10333 

00742 

03102266 


STA 

FLG1 

F0R N0N UNIT 1/0 INST 

09/18/67 

JDJ 


00033300 

10334 

00743 

01000240 


LAA 

= »240 

SPACE 

10/26/67 

JDJ 

• B 

00033400 

10335 

00744 

03100404 


STA 

BUFF+2 





00033500 

10336 

00745 

03100376 


STA 

BUFF-4 





00033600 

10337 

00746 

03100415 


STA 

BUFF* * 13 





00033700 

>0338 

00747 

01000013 


LAA 

* 11 


10/26/67 

JDJ 

*B 

00033800 

0339 

00750 

03100165 


STA 

SCCC 

SET C0L CTR T0 11 




00033900 

0340 

00751 

01100416 


LAA 

BUFF* * 14 



CKA 

00034000 

0341 

00752 

15000252 

V 

CMA 

a’252 

» 

10/26/67 

JDJ 

«B 

00034100 

0342 

00753 

11100755 


BRU 

* + 2 





00034200 

0343 

00754 

11101030 


BRU 

CMNT 





00034300 

0344 

00755 

15000255 


CMA 

**255 

- 

10/26/67 

JDJ 

• B 

00034400 

0345 

00756 

11100760 


BRU 

#♦2 





00034500 

0346 

00757 

11101024 


BRU 

0P11 

- IN C0LUMN 1 




00034600 

0347 

00760 

15000244 


CMA 

3*244 

J 

10/26/67 

JDJ 

*B 

00034700 

0348 

00761 

11100763 


BRU 

**2 





00034800 

0349 

00762 

11106445 


BRU 

D0LR 

$ CARD PR0CESS0R 

09/18/67 

JDJ 


00034900 

0350 

00763 

01100427 


LAA 

BUF* * 25 





00035000 

0351 

00764 

06000240 


SMA 

s ' 2 4 0 

SPACE 

10/26/67 

JDJ 

*B 

00035100 

0352 

00765 

00000022 


SAZ 






00035200 

0353 

00766 

11101021 


BRU 

0P3O 

C0LUMN 10 N0T BLANK 




00035307 

0354 

00767 

01077770 

C5LK 

LAA 

3-8 

C0L 5 L00K-UP 0N TYPE 

11/02/67 

JDJ 

*B 

0003540 

0355 

00770 

03112041 


STA 

W0RK 

SET TEMP ST0RAGE C0UNTER 

11/02/67 

JDJ 

*B 

Q0Q355C 

0356 

00771 

02000000 


LBA 

*0 

CLEAR AUGMENT T0 TR0T 

11/02/67 

JDJ 

• B 

00035600 

0357 

00772 

01100422 


LAA 

BUFF+11+5 

GET C0L 5 0R TYPE 

11/02/67 

JDJ 

»B 

00035700 

0358 

00773 

15512105 

C5L1 

CMA 

TYPE,1 

TEST F0R VALID 

11/02/67 

JDJ 

«B 

00035800 

0359 

0QJ74 

11100776 


BRU 

• *2 

N0, 0R MAYBE UNASSIGNED 

11/02/67 

JDJL 

*B 

00035900 

0360 

00775 

11700046 


BRU* 

CDTB,1 

YES# G0 T0 C0MPUTED ADDRES11/02/67 

JDJ 

*B 

00036000 
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00361 

00776 

00000026 


IBS 


INCREMENT AUGMENT 

11/02/67 

JDJ 

• B 

00036100 

00362 

00777 

00000033 


N0P 


IBS WILL SKIP 0N PLUS 

11/17/67 

JDJ 

*B 

00036200 

00363 

01000 

14112041 


IMS 

W0RK 

BUMP C0UNTER 

11/02/67 

JDJ 


00036300 

00364 

01001 

11100773 


BRU 

C5L1 

G0 TRY NEXT L0CATI0N 

11/02/67 

JDJ 

«B 

00036400 

00365 

01002 

11101021 


BRU 

0P3O 

PR0CESS AS 2ER0 0P C0DE 

11/02/67 

JDJ 

• B 

0U036500 

00366 

01003 

01100426 

C5BL 

laa 

BUF + * 24 


11/07/67 

JDJ 

#B 

00036600 

00367 

01004 

06000252 


sma 

s * 252 

• 

10/26/67 

JDJ 

»B 

00036700 

00368 

01005 

00000022 


SA2 


INDIRECT FLAG 0N 




00036800 

00369 

01006 

11101011 


BRU 

0P1O 

N0 




00036900 

003*0- 

01007 

01002000 

■ 

LAA 

s *2000 


10/26/67 

JDJ 

*B 

0003.7000 

00371 

01010 

03100175 


STA 

DATA 





00037100 

00372 

01011 

12101117 

0P1O 

SPB 

GN0P 

G0 GENERATE 0P C0DE 

10/16/67 

JDJ 

#B 

00037200 

00373 

01012 

11101021 


BRU 

0P3O 

INVALID CHARACTERS 

10/16/67 

JDJ 

• B 

00037300 

00374 

01013 

02101132 

s 

LBA 

L027 

»EXIT-0PT1 PSEUD0-0P 




00037400 

00375 

01014 

15501343 

0P2O 

CMA 

0PT1# 1 

0P TABLE L00K UP 




0 n 037500 

00376 

01015 

11101017 


BRU 

*♦2 





00 0 376 0 r 

00377 

01016 

11101141 


BRU 

0P4Q 

MATCH F0UND 




0U j 3/7l. 

00378 

01017 

00000026 


IBS 






0003780 ( 

00379 

01020 

11101014 


BRU 

0P2O 





0 0 3 7 9 G 

00380 

01021 

01000321 

0P3O 

LAA 

s 1 321 

0 ERR0R C0DE 

10/26/67 

JDJ 

*B 

0003800i 

00381 

01022 

03100404 


STA 

BUFF+2 





00038101 

00382 

01023 

11107764 


BRU 

HREF 

2ER0 0P-C0DE 

09/18/67 

JDJ 


00038200 

00383 

01024 

00000003 

0P11 

CLA 



12/02/68 

MDL *C 


00038300 

00384 

01025 

03107016 


STA 

LPCT 


12/02/68 

MDL *C 


00038400 

00385 

01026 

01000261 


LAA 

* ’ 261 


12/02/68 

MDL *C 


00038500 

00386 

01027 

03100370 


STA 

LN0-1 


12/02/68 

MDL *C 


00038600 

00387 

01030 

01100126 

CMNT 

LAA 

PASS 


12/02/68 

MDL *C 


0 0 Of3 870 0 

00388 

01031 

00000022 


SAH 



12/02/68 

MDL *C 


00Qi38800 

00389 

01032 

11100702 


BRU 

EX02 


12/02/68 

MDL «C 


00038900 

00390 

01033 

00130403 


SNS 

3 

PRINT ERR0R LINES 0NLY 


10/70 

KSS 

•E00039000 

00391 

01034 

1H00702 


BRU 

EX02 

YES 


10/70 

KSS 

*E00039100 

00392 

01035 

00130401 


SNS 

1 


12/02/68 

MDL *C 


00039200 

00393 

01036 

11100702 


BRU 

EX02 


12/02/68 

MDL «C 


00039300 

00394 

01037 

12107170 


SPB 

CLIN 


12/02/68 

MDL *C 


00039400 

00395 

01040 

12107207 


SPB 

HDNG 


12/02/68 

MDL »C 


00039500 

00396 

01041 

02077761 


lba 

s-15 


12/02/68 

MDL *C 


00039608 
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00397 

01042 

01000240 


LAA 

3*240 







12/02/68 

MDL *C 


00039700 

00398 

01043 

03500415 


STA 

BUFF-4+15,1 







12/02/68 

MDL *C 


00039600 

00399 

01044 

00000026 


IBS 








12/02/68 

MDL *C 


00039900 

00400 

01045 

11101043 


BRU 

#-2 







12/02/68 

MDL *C 


00040000 

00401 

01046 

01000146 


LAA 

= 102 



/- 




12/02/68 

MDL *C 


00040100 

00402 

01047 

00130404 


SNS 

4 







12/02/68 

MDL «C 


00040200 

00403 

01050 

01000110 


LAA 

• 72 







12/02/68 

MDL *C 


00040300 

00404 

01051 

03101064 


STA 

WCT 







12/02/68 

MDL *C 


00040400 

00405 

01052 

00000003 


CLA 








12/02/68 

MDL *C 


00040500 

00406 

01053 

00130415 


SNS 

13 







12/02/68 

MDL *C 


00040600 

00407 

01054 

11101061 


BRU 

MGT 







12/02/68 

MDL *C 


00040700 

00408 

01055 

00130404 


SNS 

4 







12/02/68 

MDL «C 


00040800 

00409 

01056 

11101060 


BRU 

ASR 







12/02/68 

MDL *C 


00040900 

00410 

01057 

06000003 


SMA 

«3 







12/02/68 

MDL *C 


00041000 

00411 

01060 

05000010 

ASR 

AMA 

= 8 







12/02/68 

MDL *C 


00041100 

00412 

01061 

06000011 

MGT 

SMA 

s9 







12/02/68 

MDL *C 

* 

00041200 

00413 

01062 

55100000 


CALL 

H$WR 







12/02/68 

MDL *C 


00041300 

00414 

01063 

35400370 


DAC 

LN0-1 







12/02/68 

MDL *C 


00041400 

00415 

01064 

00000000 

WCT 

DATA 

«• 







12/02/68 

MDL *C 


00041500 

00416 

01065 

11100702 


BRU 

EX02 







12/02/68 

MDL *C 


00041600 

00417 



* 









10/16/67 

JDJ 

*B 

00041700 

00418 



* SUBR0UTINE T0 INCREMENT A 

decimal integer 

CNTR 

10/16/67 

JDJ 


00041800 

00419 



e 









10/16/67 

JDJ 


00041900 

00420 

01066 

oooooooo 

DAFA 

»*« 

«« 

ENTER SUBR0UTINE 



10/16/67 

JDJ 

*B 

00042000 

00421 

01067 

01077774 


LAA 

= »4 

SET 

L00P 

C0UNTER 

T0 

-4 

10/16/67 

JDJ 

*B 

00042100 

00422 

01070 

03112041 


STA 

W0RK 

TEMP 

ST0RAGE 




10/16/67 

JDJ 

*B 

00042200 

00423 

01071 

01400000 

DAF1 

LAA 

Oil 

GET 

I-TH 

DIGIT 



10/16/67 

JDJ 

*B 

00042300 

00424 

01072 

05000001 


AMA 

= 1 

increment BY 

1 



10/16/67 

JDJ 

*B 

00042400 

00425 

01073 

Q3400000 


STA 

0,1 

ST0RE IN 

SAME 

DIGIT 

P0S 

10/16/67 

JDJ 

#B 

00042500 

00426 

01074 

15000272 


CMA 

c*272 

*272 

0R 

10 BASE ASCII 

10/16/67 

JDJ 


00042600 

00427 

01075 

11301066 


BRU* 

DAFA 

EXIT 

0N 

N0 9 

0VERFL0W 

10/16/67 

JDJ 

#B 

00042700 

00428 

01076 

01000260 


L'AA 

s«260 

SET 

P0S 

T0 2ER0 AND 

Carryio/16/67 

JDJ 

«B 

00042800 

00429 

01077 

03400000 


STA 

0,1 







10/16/67 

JDJ 

*B 

00042900 

00430 

01100 

16077777 


AMB 

= -l 

DECREMENT T0 

NEXT 

DIGIT 

10/16/67 

JDJ 

*B 

00043000 

00431 

01101 

14112041 


IMS 

W0RK 

TEST 

IF 

F0UR 

ADDS 

WITH 9 

10/16/67 

JDJ 

• B 

00043100 

OC'4‘32 

01102 

11101071 


BRU 

DAF1 

G0 CYCLE 

NEXT 

DIGIT 


10/16/67 

JDJ 


00043200 
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00433 

01103 

11301066 


BRU* 

DAFA 

EXIT WITH 2ER0, 0VERFL0W 

10/16/67 

JDJ 

*B 

00043300 

00434 

01104 

25400000 

FRD2 

DAC 

0 





00043400 

00435 

01105 

12107260 


SPB 

SCL 

CHECK F0R ALPHA CHAR 

09/18/67 

JDJ 


00043500 

00436 

01106 

11101113 


BRU 

FRD3 

VALID, EX IT +1 

10/16/67 

JDU 

*B 

0 U 04360 0 

00437 

01107 

15000252 


CMA 

= ’252 

0 

10/26/67 

JDJ *B 

0c043700 

00438 

OHIO 

11301104 


BRU* 

FRD2 

INVALID, EXIT+O 

10/16/67 

JDJ 

* 8 

00043800 

00439 

01111 

11101113 


BRU 

* + 2 





00043900 

00440 

01112 

11301104 


BRU* 

FRD2 

INVALID, EX I T*0 

10/16/67 

JDJ 

*B 

00044000 

00441 

01113 

00001316 

FRD3 

LSI 

11 

GRNERTATE 

11/14/67 

JDJ 

*B 00044100 

00442 

01114 

00000514 


FRL 

5 





00044200. 

00443 

01115 

14101104 


IMS 

FRD2 

SET EXIT ADDRESS T0 *1 

10/16/67 

JDJ 

*B 

00044300 

00444 

01116 

11301104 


BRU* 

FRD2 





. 00044400 

00445 



• 




10/16/67 

JDJ 

*B 

00044500 

00446 

01117 

oooooooo 

GNMP 

000 

00 

ENTER GENERAL 3 ALPHA 0P 

10/16/67 

JDJ 

*B 

00044600 

00447 

01120 

02100423 


lba 

BUF♦* 21 

FIRST CHAR 

10/25/67 

JDJ 


00H44700 

00448 

01121 

01100424 


LAA 

BUF+ * 22 

SEC0ND CHAR 

10/25/67 

JDJ 


00/446.'-' 

00449 

01122 

12101104 


SPB 

FRD2 

REM0VED LABEL DUMB 

10/16/67 

JDJ 

*B 

00 )4490'. 

00450 

01123 

11301117 


BRU* 

GN0P 

ERR0R CHARACTER 

10/16/67 

JDJ 

*B 

00 n 4500T 

00451 

01124 

01100425 


LAA 

RUF +»23 

THIRD CHAR 

10/25/67 

JDJ 


00 145101 

00452 

01125 

12101104 


SPB 

FRD2 

PACK 

10/25/67 

JDJ 


00 :4520' 

00453 

01126 

11301117 


BRU* 

GN0P 

ERR0R CHARACTER 

10/16/67 

JDJ 

*B 

00045300 

00454 

01127 

00000004 


TBA 


SET ANSWER 

10/25/67 

JDJ 


00045400 

00455 

01130 

14101117 


IMS 

GN0P 

SET T0 EX IT*1 

10/16/67 

JDJ 

*B 

00045500 

00456 

01131 

11301117 


BRU* 

GN0P 

EXIT WITH ALPHA 0R * 0PC 

10/16/67 

JDJ 

*B 

00045600 

00457 

01132 

00177630 

1027 

DATA 

EXIT-0PT1 

PSEUD0-0P 




*EQ0045700 

00458 

01133 

00177660 

1028 

DATA 

0PT3-0PT1 

MEM, REF, INSTR, 




*E00Q‘458OO 

00459 

01134 

00177675 

LQ29 

DATA 

0PT4-0PT1 

AUGMENTED INSTR, 




*EQO&45900 

00460 

01135 

00177743 

LQ30 

DATA 

0PT5-0PT1 

SHIFT INSTR, 




•E00046000 

00461 

01136 

00177754 

1031 

DATA 

0PT6-0PT1 

1/0 class 1 




*EQ0046100 

00462 

01137 

00177766 

1032 

DATA 

0PT7-0PT1 

1/0 CLASS 2 




•E00046200 

00463 

01140 

00177770 

1033 

DATA 

0PT8-0PT1 

1/0 CLASS 3 




*E00046300 

00464 



« 







000464D0 

00465 

01141 

00000004 

0P4O 

TBA 






00046500 

00466 

01142 

15101133 


CMA 

L028 

*0PT3-0PT1 MEM REF INSTR 




00046600 

00467 

01143 

11701513 


BRU* 

0PT2.1 

T0 PSEUD0 0P PR0CESS0RS 




00046700 

00468 

01144 

00000033 


N0P 






00046800 
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00469 

01145 

02501513 


LBA 

0PT2#1 

BINARY 0P C0DE 



00046900 

00470 

01146 

16100175 


AMB 

DATA 




00047000 

00471 

01147 

04100175 


STB 

DATA 




00047100 

00472 

01150 

15101134 


CMA 

L029 

*0PT4-0PT1 AUGMNTD INSTR 



00047200 

O'0-4 73 

01151 

11107764 


BRU 

MREF 

MEM0RY REFERENCING INSTR 

09/18/67 

JDJ 

00047300 

00474 

01152 

00000033 


N0P 





00047400 

00475 

01153 

15101135 


CMA 

L030 

S0PT5-0PT1 SHIFT INSTR 



00047500 

00476 

01154 

12i0254l 


SPB 

AUGM 

AUGMENTED INSTR - SET 

FLAG 


*£00047600 

00477 

01155 

00000033 


N0P 





00047700 

00478 

01156 

15101136 


CMA 

L031 

•0PT6-0PT1 1/0 CLASS 1 



00047800 

00479 

01157 

11102550 


BRU 

MR60 

SHIFT INSTRUCTION 

09/18/67 

JD J 

00047900 

00480 

01160 

00000033 


N0P 





00048000 

00481 

01161 

15101137 


CMA 

L032 

•0PT7-0PT1 1/0 CLASS 2 



00048100 

00482 

01162 

11102164 


BRU 

10CA 

CLASS 1 1/0 INSTRUCTION 

09/18/67 

JDJ 

00048200 

00483 

01163 

00000033 


N0P 





. 00048300 

00484 

01164 

15101140 


CMA 

L033 

30PT8-0PT1 1/0 CLASS 3 



00048400 

00485 

01165 

11102217 

\ 

BRU 

10CB 

CLASS 2 1/0 INSTRUCTION 

09/18/67 

JD J 

00048500 

00486 

01166 

00000033 


N0P 


» 


CKA 

00048600 

00487 

01167 

15102131 


CMA 

CKA1 

CHECKING F0R UNIT 1/0 

CLASS 

CK A 

00048700 

00488 

01170 

11102276 


BRU 

I0CC 

UNIT 1/0 CLASS 

09/18/67 

JDJ 

00048800 

00489 

01171 

00000033 


N0P 


« 


CKA 

00048900 

00490 

01172 

11102162 


BRU 

CHAS 

UNIT 1/0 CLASS 

09/18/67 

JDJ 

00049000 

00491 



# 






00049100 

00492 

01173 

00001173 

EXIT 

EQU 

• 




00049200 

00493 



» 


PSEUD0-0P 

NAMES 



00049300 

00494 

01173 

00002123 


DATA 

*002123 

ABS 



00049400 

00495 

01174 

00044254 


DATA 

•044254 

REL 



00049500 

00496 

01175 

00037107 


DATA 

*037107 

0RG 



00049600 

00497 

01176 

00013065 


DATA 

*013065 

EQU 



00049700 

00498 

01177 

00010043 


DATA 

*010043 

DAC 



00049800 

00499 

01200 

00012043 


DATA 

*012043 

EAC 



00049900 

00500 

01201 

00010064 


DATA 

*010064 

DAT-A 



00050000 

00501 

01202 

00005163 


DATA 

*005163 

BSS 



00050100 

00502 

01203 

00004263 


DATA 

*004263 

BES 



00050200 

00503 

01204 

00006054 


DATA 

*006054 

CAL-L 



00050300 

09*04 

01205 

00034055 


DATA 

*034055 ~ 

NAM-E 



00050400 
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00505 

01206 

00065532 


DATA 

•065532 

ZZZ 


r u05C^00 

00506 

01207 

00124512 


DATA 

•124512 

««« 


,0050600 

00507 

01210 

00032060 


DATA 

’ 032060 

MAP 


0 0050700 

00508 

01211 

00032762 


DATA 

•032762 

M0R 


0 CQ50800 

00509 

01212 

00100256 


DATA 

•100256 

EN 


00050900 

00510 

01213 

00012704 


DATA 

•012704 

END 


00051000 

00511 

01214 

00014762 


DATA 

•014762 

F0R-M 

9/06/67 JDJ 

4132000051100 

00512 

01215 

00014201 


DATA 

•014201 

FDA-T 

9/06/67 JDJ 

4133000051200 

00513 

01216 

00032043 


DATA 

•032043 

MAC-R 

10/16/67 JDJ 

*8 00051300 

00514 

01217 

00012641 

EMCT 

DATA 

•012641 

EMA-C ERR0R IF F0UND 

10/16/67 JDJ 

*B 00051400 

00515 

01220 

00030463 


DATA 

'030463 

LIS-'T 

12/19/67 

JDJ *C00051500 

00516 

01221 

00034754 


DATA 

•034754 

N0L-S 

12/19/67 

JDJ *C0003160Q 

00517 

01222 

00100000 


DATA 

•100000 

(BLANK CARD) 


’ 00051700 

00518 








00031800 

00519 





MEM0RY REFERENCING INSTRUCTI0NS 


00051900 

00520 

01223 

00001223 

0PT3 

EQU 

» 



Ol 52000 

00521 

01223 

00002641 


DATA 

•002641 

AMA 


0005210. 

00522 

01224 

00002642 


DATA 

•002642 

AMB 


00052201 

00523 

01225 

00046641 


DATA 

•046641 

SMA 


0005230 

00524 . 

01226 

00033031 


data 

•033031 

MPY 


0015240 

00525 

01227 

00010466 


DATA 

•010466 

DIV 


00052500 

00526 

01230 

00030041 


DATA 

' 030041 

LAA 


00052600 

00527 

01231 

00030101 


DATA 

•030101 

LBA 


00052700 

00528 

01232 

00047201 


DATA 

•047201 

STA 


00052800 

00529 

01233 

00047202 


DATA 

•047202 

STB 


00052900 

00530 

01234 

00005125 


DATA 

•005125 

BRU 


00Q[53Q0Q 

00531 

01235 

00047002 


DATA 

*047002 

SPB 


00|5310Q 

00532 

01236 

00022663 


DATA 

•022663 

IMS 


00*53200 

00533 

01237 

00006641 


DATA 

•006641 

CMA 


0Off3300 

00534 



» 





00133400 

00535 





augmented 

INSTRUCTI0NS 


00833500 

00536 

01240 

00001Z40 

0PT4 

EQU 

« 



00053600 

00537 

01240 

00044701 


DATA 

•044701 

RNA 


00053700 

00538 

01241 

00030163 


DATA 

*030163 

LCS 


00053800 

00539 

01242 

00022123 


DATA 

*022123 

IBS 


00053900 

00540 

01243 

00046072 


DATA 

•046072 

SAZ 


00054000 





810 A/B HACR0-ASSEHBLER 044004E 


01/20/71 PAGE 16 


00541 

01244 

00046060 

DATA 

*046060 

• SAP 

00542 

01245 

00046056 

DATA 

* 046056 

SAN 

00543 

01246 

00046746 

DATA 

* 046746 

S0F 

00544 

01247 

00046063 

DATA 

*046063 

SAS 

00545 

01250 

00046717 

DATA 

*046717 

SN0 

00546 

01251 

00030742 

DATA 

'030742 

L0B 

00547 

01252 

00002101 

DATA 

*002101 

ABA 

00548 

01253 

00036101 

DATA 

•036101 

0BA 

00549 

01254 

00034247 

DATA 

•034247 

NEG 

00550 

01255 

00003143 

DATA 

*003143 

ASC 

00551 

01256 

00006723 

DATA 

*006723 

CNS 

00552 

01257 

00006601 

DATA 

* 006601 

CLA 

00553 

01260 

00050042 

DATA 

*050042 

TAB 

00554 

01261 

00022042 

DATA 

*022042 

IAB 

00555 

01262 

00007142 

DATA 

*007142 

CSB 

00556 

01263 

00050101 

DATA 

’050101 

TBA 

00557 

01264 

00020624 

DATA 

*020624 

HIT 

00558 

01265 

00034760 

DATA 

•034760 

N0P 

00559 

01266 

00050751 

DATA 

*050751 

T0I 

00560 

01267 

00033144 

DATA 

*033144 

MSD 

00561 

01270 

00040756 

DATA 

*040756 

P0N 

00562 

01271 

00040746 

DATA 

•040746 

P0F 

00563 

01272 

00050126 

DATA 

*050126 

TBV 

00564 

01273 

00051302 

DATA 

*051302 

TVB 

00565 

01274 

00037323 

DATA 

*037323 

0VS 

00566 

01275 

00047230 

DATA 

*047230 

STX 

00567 

01276 

00030470 

data 

' 030470 

LiX 

00568 

01277 

00061030 

DATA 

*061030 

XPX 

00569 

01300 

00061002 

DATA 

*061002 

XPB 

00570 

01301 

00047402 

DATA 

*047402 

SXB 

00571 

01302 

00050070 

DATA 

*050070 

TAX 

00572 

01303 

00051401 

DATA 

*051401 

TXA 

00573 

01304 

OOO5012O 

DATA 

*050120 

TBP 

00574 

01305 

00051002 

DATA 

*051002 

TPB 

00575 


» 




00576 







00054100 
00054200 
00054300 
00054400 
00054500 
00054600 
00054700 
00054800 
00054900 
00055000 
00055100 
00055200 
00055300 
00055400 
00055500 
00055600 
00055700 
00055800 
00055900 
00056000 
CKA 00056100 

CKA 00056200 

CKA 00056300 

CKA - 00056400 


810B 

8/28/67 

JDJ 


4570200056500 

81 OB 

8/28/67 

JDJ 


4570400056600 

810B 

8/28/67 

JDJ 


4570600056700 

810B 

8/28/67 

JDJ 


4570800056800 

810B 

8/28/67 

JDJ 


4571000056900 

810B 

8/28/67 

JDJ 


4571200057000 

810B 

8/28/67 

JDJ 


4571400057100 

81QB 

8/28/67 

JDJ 


4571600057200 

810B 

11/14/67 

JDJ 

•B 00057300 

81 OB 

11/14/67 

JDJ 

*B . 00057400 


00057500 

00057600 
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00577 



« 


SHIFT INSTRUCT 10N 

00578 

01306 

00001306 

0PT5 

ECU 

e 


00579 

01306 

00031141 


DATA 

'031141 

LSA 

00580 

01307 

00015101 


DATA 

'015101 

FRA 

00581 

01310 

00014601 


DATA 

'014601 

FLA 

00582 

01311 

00045154 


DATA 

'045154 

RSL 

00583 

01312 

00015114 


DATA 

• 015114 

FRL 

00584 

01313 

00031154 


DATA 

' 031154 

LSL 

00585 

01314 

00014614 


DATA 

'014614 

FLL 

00586 

01315 

00045141 


DATA 

'045141 

RSA 

00587 

01316 

00023423 


DATA 

*023423 

IXS 

00588 



« 




00589 



* 


1/0 INSTRUCTI0NS 

00590 

01317 

00001317 

0PT6 

EQU 

« 


00591 

01317 

00047256 


DATA 

*047256 

SUN 

00592 

01320 

00046156 


DATA 

»046156 

SCN 

00593 

01321 

00032743 


DATA 

'032743 

M0C 

00594 

01322 

00032443 


DATA 

*032443 

MIC 

00595 

01323 

00051256 


DATA 

•051256 

TUN 

00596 

01324 

00050156 


DATA 

* 050156 

TCH 

00597 

01325 

00002743 


DATA 

* 002743 

A0C 

00598 

01326 

00002443 


DATA 

*002443 

A IC 

00599 

01327 

00005203 


DATA 

*005203 

BTC 

00600 

01330 

000467.23 


DATA 

*046723 

SNS 

00601 



« 




00602 

01331 

00001331 

0PT7 

EQU 

« 


00603 

01331 

00002164 


DATA 

*002164 

ACT 

00604 

01332 

00050270 


DATA 

*050270 

TEX 

00605 



« 




00606 

01333 

00001333 

0PT8 

EQU 

# 


00607 

01333 

00040445 


DATA 

* 040445 

PIE 

00608 

01334 

00040444 


DATA 

'040444 

PID 

00609 

01335 

00001335 

0PT9 

EQU 

« 


00610 

01335 

00002460 


DATA 

*002460 

A I P 

00611 

01336 

00002760 


DATA 

*002760 

A0P 

00612 

01337 

00032460 


DATA 

*032460 

M J P 


r j Q 5 7 7 0 0 
00057800 
00057900 
0 058000 
0u058l00 
00058200 
00058300 
00058400 
00058500 
00058600 

81OB ' 8/28/67 JDJ 4691000058760 

00058800 
00098900 
00059000 
00059100 
0,059200 
00059300 
01,059400 
01)59500 
00059600 
00059700 
00059800 
00059900 
00060000 
00060100 
0 0 06 0 2 0 0 
001(60300 
00f60400 
OOf 40500 
OOW0600 
00060700 
00060800 
CKA 00060900 

CKA 00061000 

CKA 00061100 

CKA 00061200 
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00613 

01340 

00032760 


DATA 

•032760 

• M0P 





CKA 

00061300 

00614 

01341 

00006265 


DATA 

* 006265 

CEU 





CKA 

00061400 

00615 

01342 

00050265 


DATA 

•050265 

TEU 





CKA 

00061500 

00616 

01343 

00001343 

0PT1 

EQU 

e 







00061600 

00617 



a 


PSEUD0-0PS 







00061700 

00618 

01343 

35402435 


DAC 

PS34 

ABS 






00061800 

00619 

01344 

35402436 


DAC 

PS35 

REL 






00061900 

00620 

01345 

35402474 


DAC 

PS56 

0RG 






00062000 

00621 

01346 

35402476 


DAC 

PS60 

EQU 






00062100 

00622 

01347 

35402335 


DAC 

PS02 

DAC 






00062200 

00623 

01350 

35402422 


DAC 

PS30 

EAC 






00062300 

00624 

01351 

35405763 


DAC 

DAT1 

DAT-A 






00062400 

00625 

01352 

35402446 


DAC 

PS42 

BSS 






00062500 

00626 

01353 

35402462 


DAC 

PS46 

BES 






00062600 

00627 

01354 

35407457 


DAC 

CALL 

CAL-L 






00062700 

00628 

01355 

35407517 


DAC 

NAME 

NAM-6 






00062800 

00629 

01356 

35407764 

\ 

DAC 

MREF 

ZZZ 






00062900 

00630 

01357 

35407764 


DAC 

MREF 

• •« 






00063000 

00631 

01360 

35407656 


DAC 

MAP 

MAP 






00063100 

00632 

01361 

35407660 


DAC 

PS70 

M0R 






00063200 

00633 

01362 

35406247 


DAC 

END 

EN 






00063300 

00634 

01363 

35406247 


DAC 

END 

END 






00063400 

00635 

01364 

35405606 


DAC 

F0RM 

F0R-M 



9/06/67 

JDJ 

5092000063500 

00636 

01365 

35405474 


DAC 

FDAT 

FDA-T 



9/06/67 

JDJ 

5093000063600 

00637 

01366 

35405405 


DAC 

MACR 

MAC-R 

BEGIN 

MACR0 CNTRL 

10/16/67 

JDJ 

*B 

00063700 

00638 

01367 

35403723 


DAC 

EMAC 

EMA-C 

ERR0R 

IF F0UND 

10/16/67 

JDJ 

*B 

00063800 

00639 

01370 

35405747 


DAC 

LIS 

LIS-T 




12/19/67 

00063900 

00640 

01371 

35405752 


DAC 

N0L 

N0L-S 






0GG64G6O 

00641 

01372 

35402444 

0P8O 

DAC 

PS37 

(BLANK 

CARD) 





00064100 

00642 












00064200 

00643 



* 


MEM0RY REFERENCING INSTRUCTORS 




00064301 

00644 

01373 

00050000 


DATA 

•050000 

ama 






00064400 

00645 

01374 

00160000 


DATA 

'160000 

AMB 






00064500 

00646 

01375 

00060000 


DATA 

•060000 

SMA 






00064600 

00647 

01376 

00070000 


DATA 

•070000 

MPY 






00064700 

00648 

01377 

0C100000 


DATA 

•100000 

DIV 






00064800 



810 A/B 

MACR5 

•-ASSEMBLER 

044 

CD 

O 

m 


00649 

01400 

00010000 

DATA 

• 010000 

LAA 

00650 

01401 

00020000 

DATA 

•020000 

LBA 

00651 

01402 

00030000 

DATA 

* 030000 

STA 

00652 

01403 

00040.000 

DATA 

• 040000 

STB 

00653 

01404 

00110000 

DATA 

•110000 

BRU 

00654 

01405 

00120000 

DATA 

* 120000 

SPB 

00655 

01406 

00140000 

DATA 

• 140000 

IMS 

00656 

01407 

00150000 

data 

•150000 

cma 

00657 


* 




00658 


« 


AUGMENTED 

INSTRUCTI 

00659 

01410 

00000001 

DATA 

•000001 

RNA 

00660 

01411 

00 0 00.031 

DATA 

•000031 

ICS 

00661 

01412 

00000026 

DATA 

•000026 

IBS 

00662 

01413 

00000022 

DATA 

•000022 

SA2 

00663 

01414 

00000024 

DATA 

•000024 

SAP 

00664 

01415 

00000023 

DATA 

•000023 

SAN 

00665 

01416 

00000025 

DATA 

•000025 

S0F 

00666 

01417 

00000021 

DATA 

’000021 

SAS 

00667 

01420 

0 000 0032 

DATA 

*000032 

SN0 

00668 

01421 

000000361 

data 

• 000036 

L0B 

00669 

01422 

00000027 

DATA 

•000027 

ABA 

00670 

01423 

00000030 

DATA 

•000030 

0BA 

00671 

01424 

0000000:2 

DATA 

• 000002 

NEG 

00672 

01425 

ooo 00 : 02.0 

DATA 

*000020 

ASC 

00673 

01426 

00000034 

DATA 

*000034 

CNS 

00674 

01427 

00000:0*0-3 

DATA 

•000003 

CLA 

00675 

01430 

0 0000005 

DATA 

•000005 

TAB 

00676 

01431 

0000000-6 

DATA 

• 000006 

IAB 

00677 

01432 

00000007 

DATA 

• 000007 

CSB 

00678 

01433 

00000004: 

DATA 

•000004 

TBA 

00679 

01434 

00000000 

DATA 

•000000 

HLT 

00680 

01435 

00000033 

DATA 

*000033 

N0P 

00681 

01436 

00000035 

DATA 

*000035 

T0I 

00682 

01437 

00000037 

DATA 

*000037 

MSD 

00683 

01440 

00002040 

DATA 

*002040 

P0N 

00684 

01441 

00002041 

DATA 

*002041 

P0F 


01/20/71 PAGE 19 


> J06-.90U 
n006t>000 
00065100 
00065200 
00065300 
00065400 
00065500 
00065600 
00065700 

0NS 00065800 

00065900 
. 00066000 
00066100 
00066200 
0 01 066300 
0 0 066 - 
00066^ 
000666. 

0 0 0 6 6 7 (' 

0006680 

00066900 

00067000 

00067100 

00067200 

’ 00067300 

0 0 06 7 4 0 0 
00|67500 
00167600 
00% §77 00 
00067800 
00067900 
00068000 
00068100 
00068200 
CKA 00068300 

CKA 00068400 
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00685 

01442 

00000042 


DATA 

* 000042 

TBV 

00686 

01443 

00000043 


DATA 

* 000043 

TVB 

00687 

01444 

00000037 


DATA 

* 000037 

0VS 

00688 

01445 

00000044 


DATA 

’000044 

STX 

00689 

01446 

00000045 


DATA 

’000045 

LIX 

00690 

01447 

00000046 


DATA 

’000046 

XPX 

00691 

01450 

00000047 


DATA 

’000047 

XPB 

00692 

01451 

00000050 


DATA 

* 000050 

SXB 

00693 

01452 

00000052 


DATA 

’000052 

TAX 

00694 

01453 

00000053 


DATA 

*000053 

TXA 

00695 

01454 

00000040 


DATA 

’000040 

TBP 

00696 

01455 

00000041 


DATA 

’000041 

TPB 

00697 







00698 







00699 



* 


SHIFT INSTRU 

CTI0NS 

00700 

01456 

00000011 


DATA 

’000011 

ISA 

00701 

01457 

00000012 

V 

DATA 

'000012 

FRA 

00702 

01460 

00000017 


DATA 

’000017 

FLA 

00703 

01461 

00000015 


DATA 

’000015 

RSL 

00704 

01462 

00000014 


data 

’000014 

frl 

00705 

01463 

00000016 


DATA 

’000016 

LSL 

00706 

01464 

00000013 


DATA 

’000013 

FLL 

00707 

01465 

00000010 


DATA 

'000010 

RSA 

00708 

01466 

00000051 


DATA 

’000051 

IXS 

00709 



ft 




00710 





1/0 INSTRUCTI0NS 

00711 

01467 

00170000 


DATA 

’170000 

SUN 

00712 

01470 

00170200 


DATA 

’170200 

SCN 

00713 

01471 

00170230 


DATA 

’170230 

M0C 

00714 

01472 

00170240 


DATA 

’170240 

MIC 

00715 

01473 

00130100 


DATA 

’130100 

TUN 

00716 

01474 

00130300 


DATA 

’130300 

TCN 

00717 

01475 

00170210 


DATA 

*170210 

A0C 

00718 

01476 

00170220 


DATA 

*170220 

AI C 

00719 

01477 

00170250 


DATA 

’ 170250 

BTC 

0G720 

01500 

00130400 


DATA 

*130400 

SNS 


CKA 00068500 

CKA 00068600 


810B 

8/28/67 

JDJ 

5510200068700 

810B 

8/28/67 

JDJ 

5510400068800 

810B 

8/28/67 

JDJ 

5510600068900 

8108 

8/28/67 

JDJ 

551D800069000 

810B 

8/28/67 

JDJ 

5511000069100 

810B 

8/28/67 

JDJ 

5511200069200 

810B 

8/28/67 

JDJ 

55U400069300 

61QB 

8/28/67 

JDJ 

5511600069400 

810B 

8/28/67 

JDJ 

5511800069500 

81 OB 

8/28/67 

JDJ 

5512000069600 


00069700 
00069800 
. 00069900 

00070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 

81 OB 8/28/67 JDJ 5621000070800 

00070900 

00071000 

00071100 

00071200 

00071300 

00071400 

00071500 

00071600 

00071700 

00071800 

00071900 

0D072000 
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00721 

01501 

00170600 


data 

'170600 

ACT 



j 0072100 

00722 

01502 

00130700 


data 

* 130700 

TEX 



00072200 

00723 

01503 

00000000 

LPIE 

HIT 





00072300 

00724 

01504 

00000000 

LPID 

HLT 





00072400 

00725 

01505 

00170200 


DATA 

* 170200 

A I P 

CKA 

00072500 

00726 

01506 

00170000 


DATA 

»170000 

A0P 

CKA 

00072600 

00727 

01507 

00170600 


DATA 

*170600 

MIP 

CKA 

00072700 

00728 

01510 

00170400 


DATA 

*170400 

H0P 

CKA 

00072800 

00729 

01511 

00130000 


DATA 

'130000 

CEU 

CKA 

00072900 

00730" 

01512 

00130200 


DATA 

*130200 

TEU 

,i CKA 

, 00073000 

00731 

01513 

00001513 

0PT2 

EQU 

* 




00073100 

00732 



•BASIC CARD READ 




00073200 

00733 

01513 

25400000 

CARD 

DAC 

«• 




00073300 

00734 

01514 

12103706 

V 

SPB 

SSSS 




00073400 

00735 

01515 

25401100 


DAC 

*1100 




0C 073500 

00736 

01516 

11101567 


BRU 

PT I 3 




000736 

00737 

01517 

01000002 


laa 

s2 

10/26/67 

JDJ 

*B 

00073? 

00738 

01520 

12103706 


SPB 

SSSS 




0 0 0 738C 

00739 

01521 

25400500 


DAC 

*500 




0007390 

00740 

01522 

11101563 


BRU 

PT 11 

PAPER TAPE INPUT 



0007400 

00741 

01523 

01000003 


LAA 

= 3 

10/26/67 

JD J 

*B 

00074l0u 

00742 

01524 

12103706 


SPB 

SSSS 

TEST F0R HAG TAPE S0URCE 

FEC 

00074200 

00743 

01525 

25401300 


DAC 

*1300 

INPUT 

FEC 

00074300 

00744 




►a**#***#*******#*******#*****************#***************; 


00074400 

00745 



• C 

HANG 

E HADE T0 

ALL0W HAGNETIC TAPE INPUT JPD 



00074500 

00746 



ft*###*####*##*##*#####*#*****##*########***#****#*#****###*#*# 


00^74600 

00747 

01526 

01000007 


laa 

*7 

HAG TAPE 1 AS INPUT 11/07/67 

JDJ 

*B 

0QO74700 

00748 

01527 

00130416 


SNS 

14 

SKIP IF N0T 9-TRACK MAG TAPE 

11/70 

rld 

•EOO0748OO 

00749 

01530 

11101535 


BRU 

TRK9 

9-TRACK MAG TAPE 

11/70 

RLD 

•EOO0749OO 

00750 

01531 

55100000 

PT I 2 

CALL 

H$WR 

READ A CARD 09/18/67 

JDJ 


00075000 

00751 

01532 

35400416 


DAC 

BUFF♦'14 




00075100 

00752 

01533 

25400-120 


DAC 

80 




00075200 

00753 

01534 

11301513 


BRU* 

CARD 




00075300 

00754 

01535 

55100000 

TRK9 

CALL 

B$WR 

800 BPI, 2 CHAR/W0RD 9-TRACK 

11/70 

rld 

•E00075400 

00755 

01536 

35400466 


DAC 

BUFF+52 

UPPER HALF 80 CHAR BUFFER 

11/70 

RLD 

•E00075500 

00756 

01537 

00000050 


DATA 

40 

80 CHARACTERS 

11/70 

RLD 

•E0007560C 



810A/B MACRO-ASSEMBLER 


044004E 


00757 

01540 

02077730 


LBA 

**40 

00758 

01541 

01500536 

GOON 

LAA 

8UFF+92, 

00759 

01542 

03101562 


STA 

STA1 

00760 

01543 

00001015 


RSL 

8 

00761 

01544 

03301561 


STA* 

BAUD 

00762 

01545 

14101561 


IMS 

BAUD 

00763 

01546 

01101562 


LAA 

STA1 

00764 

01547 

00001016 


LSL 

8 

00765 

01550 

00001015 


RSL 

8 

00766 

01551 

03301561 


STA* 

BAUD 

00767 

01552 

14101561 


IMS 

BAUD 

00768 

01553 

00000026 


IBS 


00769 

01554 

11101541 


8RU 

GOON 

00770 

01555 

02101560 


LBA 

I NIT 

00771 

01556 

04101561 


STB 

BAUD 

00772 

01557 

11301513 


BRU* 

CARD 

00773 

01560 

35400416 

I (SKI T 

DAC 

BUFF+12 

00774 

01561 

35400416 

BAUD 

DAC 

BUFF *12 

00775 

01562 

00000000 

STA1 

DATA 

0 

00776 

01563 

12103706 

PTU 

SPB 

SSSS 

00777 

01564 

25401000 


DAC 

•1000 

00778 

01565 

01000005 


LAA 

*5 

00779 

01566 

11101531 


BRU 

PTI2 

00780 

01567 

01000001 

PT 13 

LAA 

*1 

00781 

01570 

11101531 


BRU 

PTI2 

00782 

01571 

01100174 

PM10 

LAA 

LOAD 

00783 

01572 

02040400 


LBA 

**140400 

00784 

01573 

00000027 


ABA 


00785 

01574 

06040400 


SMA 

*'140400 

00786 

01575 

00000022 


SAZ 


00787 

01576 

11101606 


BRU 

PM14 

00788 

01577 

02100174 


LBA 

L0AD 

00789 

01600 

01100175 


LAA 

DATA 

00790 

01601 

00000024 


SAP 


00791 

01602 

0O0QQQ20 


ASC 

■Si 

00792 

01603 

00000006 


I AB 
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INDEX 

2 CHARACTERS - 8 BITS EACH 
SAVE A-REG 

DR0P SECOND CHARACTER 
80 CHARACTER BUFFER 

SAME TWO CHARACTERS 
DROP FIRST CHARACTER 


INDEX 

CONTINUE 

RESTORE INITIAL ADDRESS 
EXIT 

FIRST CHAR ADDRESS - 80 CHAR BUFFER 


SKIP FOR HSR INPUT 


TELETYPE TAPE INPUT 


10/26/67 

11/07/67 


10/26/67 

10/26/67 


NOT LITERAL REFERENCE 


11/70 RLD *E0Q075700 
11/70 RLD *E00075800 
11/70 RLD *EQ0075900 
11/70 RLD *E00076000 
11/70 RLD *£00076100 
11/70 RLD *E00076200 
11/70 RLD *E00076300 
11/70 RLD *E00076400 
11/70 RLD *£00076500 
11/70 RLD *E0Q076600 
11/70 RLD *E00076700 
11/70 RLD *£00076800 
11/70 RLD *£00076900 
11/70 RLD *£00077000 
11/70 RLD .*£00077100 
11/70 RLD *E00077200 
11/70 RLD *£00077300 
11/70 RLD *E00077400 
11/70 RLD *£00077500 
00077600 
00077700 
JDJ *B 00077800 
00Q77900 
JDJ *B 00078000 
00078100 
00078200 
JDJ *B 00078300 
00078400 
JDJ *B 00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 



610A/B MACR0-ASSEHBLER 


Q44004E 


00793 01604 

00794 01605 

00795 01606 

00796 01607 

00797 01610 

00798 01611 

00799 01612 

00800 01613 

00801 01614 

aoaaa- 01615 

00803 01616 

00804 01617 

00805 01620 

00806 01621 
00807 01622 

00808 01623 

00809 01624 

00810 01625 

00811 01626 
00812 01627 

00813 01630 

00814 01631 

00815 01632 

00816 01633 

00817 01634 

00818 01635 

00819 01636 

00820 01637 

00821 01640 

00822 01641 

00823 01642 

00824 01643 

00825 01644 

00826 01645 

00827 01646 

00828 01647 


06000400 
11101670 
01100174 PM14 
02100175 
00001015 

QO0OOU3 

00000716 
11101677 
25400000 LIN 
01100404 105 
06000240 
00000022 
11101742 
00130403 CERT 
11301614 
001304Q1 
11301614 
01100607 
00000022 
11301614 
01100126 L09 
00000022 
11301614 
02100175 
00000113 
01077773 
12101765 
35400415 
01100173 Lll 
00000024 
11101710 
01100174 
02040000 
00000027 
06040000 
00000022 


SMA 

= MOO 

BRU 

PM12 

LAA 

L0AD 

LBA 

DATA 

RSL 

8 

FLL 

1 

LSL 

7 

BRU 

PM13 

DAC 

** 

LAA 

BUFF *2 

SMA 

SAZ 

■ *240 

BRU 

CERS 

SNS 

3 

BRU* 

LIN 

SNS 

1 

BRU* 

LIN 

LAA 

SAZ 

LSUP 

BRU* 

LIN 

LAA 

SAZ 

PASS 

BRU* 

LIN 

LBA 

DATA 

FLL 

1 

LAA 

a»5 

SPB 

00UT 

DAC 

BUFF + * 13 

LAA 

SAP 

LC 

BRU 

L12 

LAA 

L0AD 

LBA 

ABA 

s 1 140000 

SMA 

SAZ 

s ’ 40000 
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10/26/67 JDJ *B 


D0 N0T REF0RMAT L0AD- 
PRINT THE SAME CHARS AS 
ARE PUNCHED 0N BINARY 
TAPE- (QQR0000XI) 


SPACE 10/26/67 

LINE ERR0R 

C0UNT ERR0RS 10/25/67 

TEST F0R PRINT 0F ERR0R LINE 
YES - D0 N0T PRINT N0N-ERR0R LINE 
LIST 0UTPUT 


JDJ *B 
JDJ 

11/70 RLD 


GET LIST 0 
0 * L1ST 
-1»N0 LIST 


0PTI0N INDICAT0R 


12/19/67 JDJ 
12/19/67 JDJ 
12/19/67 JDJ 


10/26/67 JDJ *6 


N0 LC EDIT 


10/26/67 JDJ *B 
10/26/67 JDJ *B 


0J079J00 
00079400 
00079500 
0U07960Q 
00079700 
00079800 
00079900 
00080000 
00080100 
. OOQ8O20Q, 
00080300 
. 00080400 
00080500 
00080600 
♦EO0T8O7OO 
00 *808n ' 
00 8090u 

• COO i8100 p 
«C00 ! '8110 ! 

• COO i- 81201 

00081300 

00081400 

00081500 

00081600 

00081700 

0Q(*818QQ 

00(?81900 

00082000 

00082100 

00082200 

00082300 

00082400 

00082500 

00082600 

00082700 

00082800 
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00829 

01650 

11101571 


8RU 

PM10 

N0T MEM0RY REF 




00082900 

00830 

01651 

01100174 

PM11 

laa 

L0AD 





00083000 

00831 

01652 

02017000 


IBA 

3*17000 


10/26/67 

JDJ 

*B 

00083100 

00832 

01653 

00000027 


ABA 






00083200 

00833 

01654 

15013.000 


CMA 

3*13000 


10/26/67 

JD J 

*B 

00083300 

00834 

01655 

11101657 


BRU 

*♦2 





00083400 

00835 

01656 

11101606 


8RU 

PM14 

N0 REF0RMAT F0R DAC 




00083500 

00836 

01657 

15017000 


CMA 

3*17000 


10/26/67 

JDJ 


00083600 

00837 

01660 

11101662 


BRU 

*♦2 





00083700 

00838 

01661 

11101606 


BRU 

PM14 

N0 REFORMAT F0R EaC 




00083800 

00839 

01662 

01100015 


LAA 

PRT4 

GET LENGTH 0F PRINT LINE 

09/18/67 

JD J 


00083900 

00840 

01663 

15000025 


CMA 

3*25 


10/26/67 

JD J 

*B 

00084000 

00841 

01664 

11101666 


BRU 

« + 2 





00084100 

00842 

01665 

11101606 


BRU 

PM14 

N0 REF0RMAT F0R CALL-NAME 




00084200 

00843 

01666 

01100174 


LAA 

L0AD 





00084300 

00844 

01667 

02100175 


LBA 

DATA 





00084400 

00845 

01670 

00001015 

PM42 

RSL 

8 

REFORMAT L0AD T0 PRINT 




00084500 

00846 

01671 

00000113 


FLL 

1 

0P-C0DE* X, I, R AS 3 HIGH- 



00084600 

00847 

01672 

00001116 


LSL 

9 

ORDER 0CTAL CHARS, 




00084700 

00848 

01673 

00000024 


SAP 


(OO0000XIR) 




00084800 

00849 

01674 

05000400 


AMA 

**400 


10/26/67 

JD J 

*B 

00084900 

00850 

01675 

00000116 


LSL 

1 





00085000 

00851 

01676 

00000215 


RSL 

2 





00085100 

00852 

01677 

00000005 

PM13 

TAB 






00085200 

00853 

01700 

01077775 


LAA 

3»3 


10/26/67 

JDJ 

*B 

00085300 

00854 

01701 

12101765 


SPB 

00UT 





00085400 

00855 

01702 

35400410 


DAC 

BUFF+6 





00085500 

00856 

01703 

02100173 


LBA 

LC 





00085600 

00857 

01704 

00000113 


FLL 

1 





00085700 

00858 

01705 

01077773 


LAA 

*•5 


10/26/67 

JD J 

*B 

00085800 

00859 

01706 

12101765 


SPB 

00UT 





00085900 

00860 

01707 

35400404 


DAC 

BUFF + 2 





00086000 

00861 



************************************************************ 



00086100 

00862 



« C 

HANG 

6 MADE F0R 

SYMBOLIC 0UTPUT 




00086200 

00863 



««««*»«**»••#«*»•••«•«••»•*•*•««•««««8««««****************** 



00086300 

00864 

01710 

12103706 

112 

SPB 

ssss 





00086400 
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DO 865 

01711 

25401500 


DAC 

’1500 

SNS 13 IS SYMB0LIC 0N MAG TAPE 



03086500 

30866 

01712 

11110263 


BRU 

MSYM 




0 u 0 8 6 6 0 0 

00867 

01713 

12103706 


SPB 

SSSS 

TEST SYMB0LIC 0N PRINTER 



00086700 

00868 

01714 

25400400 


DAC 

' 400 




00086800 

00869 

01715 

11101720 


BRU 

LOO-1 

yes,bypass line printer 



0J086900 

00870 

01716 

12100007 


SPB 

PRNT 

LINE PRINTER 0UTPUT 



00087000 

00871 

01717 

11301614 

AFSY 

BRU* 

LIN 




00087100 

00872 

01720 

02100004 


LBA 

L0Q6 

*BUFF+’74 BUFFER END ADDR 



00087200 

00873 

01721 

01400000 

LOO 

LA A 

0,1 

BUFFER END W0RD SCAN BACKWARD 



00087300 

0 0 8 7’4 

01722 

06000240 


SMA 

a’240 

10/26/67 

- JDJ 

*B 

00087400 

00875 

01723 

00000022 


SAZ 





00087500 

00876 

01724 

11101732 


BRU 

L01 




. 00087600 

00877 

01725 

16077777 


AMB 

3*1 

10/26/67 

JDJ 

«B 

00087700 

00878 

01726 

00000004 


T8A 


BUFFER END INDEX 



00087800 

00879 

01727 

06100005 


SMA 

L008 

sBUFF +’13 



Oi387900 

00880 

01730 

00000022 


SAZ 





000881 

00881 

01731 

11101721 


BRU 

LOO 




01 0881. 

00882 

01732 

12107724 

L01 

SPB 

LSCK 

G0 CHECK F0R LISTING DEL 09/18/67 

JDJ 


01 18821! 

00883 



*************************************************************** 


0038830 

00884 



* change 

MADE T0 ALL0W 

PRINTING C0RRECTLY 0N ASR33, JPD 



OC 18340 

00885 





0008850m 

00886 

01733 

03101740 


STA 

LST + 2 




QC 088600 

00887 

01734 

01077777 


LAA 

B-l 

TYPE 0UT LDN 10/26/67 

JDJ 

*B 

00088700 

00888 

01735 

14101740 


IMS 

LST + 2 




00088800 

00889 

01736 

55100000 

LST 

CALL 

H$WR 

ASR HANDLER 0R PR0PER DEV09/18/67 

JDJ 


00088900 

00890 

01737 

35400370 


DAC 

LN0-1 




00089000 

00891 

01740 

25400000 


DAC 

** 




00089100 

00892 

01741 

11301614 


BRU* 

LIN 




00089200 

00893 



* C0UNT THE NUMBER 0F 

ERR0R FLAGS AS SH0WN 10/17/67 

JDJ 

*B 

00089300 

00894 

01742 

01100126 

CERS 

LAA 

PASS 

TEST F0R FINAL PASS 10/17/67 

JDJ 

«B 

00089400 

00895 

01743 

00000022 


SAZ 


0NLY C0UNT 0N FINAL PASS 10/17/67 

JDJ 

*B 

00089500 

00896 

01744 

11101623 


BRU 

CERT *2 

RETURN T0 TEST PRINTING 

10/70 

RLD 

»E0Q08960Q 

00897 

01745 

02101750 


LBA 

AERC 

ADDRESS 0F ERR0R COUNT 10/17/67 

JDJ 

*B 

00089700 

00898 

01746 

12101066 


SPB 

DAFA 

C0UNT ERR0RS 10/17/67 

JDJ 

#B 

00089800 

00899 

01747 

11101623 


BRU 

CERT + 2 

RETURN T0 TEST PRINTING 

10/70 

RLD 

*EOQO8990O 

00900 

01750 

35401763 

AERC 

DAC 

CERW 

ADDRESS 0F C0UNT WORDS 10/17/67 

JDJ 

*B 

00090000 
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00901 

01751 

00000305 

emsg 

DATA 

*305,*322,'322,*317,*322^*323, *240 

ERR0RSB 

JDJ *B 00090100 

00901 

01752 

00000322 







00901 

01753 

00000322 







00901 

01754 

00000317 







00901 

01755 

00000322 







00901 

01756 

00000323 







00901 

01757 

00000240 







00902 

01760 

00000260 


DATA 

*260,*260,*260 C0UNTER SET T0 

2ER0 

10/17/67 

JDJ #8 00090200 

00902 

01761 

00000260 







00902 

01762 

00000260 







00903 

01763 

00000260 

cerw 

DATA 

*260,*240 LAST W0RD IS ADDRESSED 

10/17/67 

JDJ *8 00090300 

00903 

01764 

00000240 







00904 



«• 


0CTAL 0UTPUT 



00090400 

00905 

01765 

25400000 

00UT 

DAC 

«« 



00090500 

00906 

01766 

03100364 


STA 

TMP2 



• 00090600 

00907 

01767 

00000003 

0010 

CLA 




00090700 

00908 

01770 

00000313 

s 

FLL 

3 



00090800 

00909 

01771 

05000260 


AMA 

»* 260 


10/26/67 

JDJ *B 00090900 

00910 

01772 

04100363 


STB 

TMP1 



00091000 

00911 

01773 

02100364 


LBA 

TMP2 



00091100 

00912 

01774 

16301765 

0022 

AMB* 

00UT 



00091200 

00913 

01775 

03400000 


STA 

Oil 



00091300 

00914 

01776 

02100363 


lba 

TMP1 



. 00091400 

00915 

01777 

14100364 


IMS 

TMP2 



00091500 

00916 

02000 

11101767 


BRU 

0010 



00091600 

00917 

02001 

14101765 


IMS 

00UT 



00091700 

00918 

02002 

11301765 


BRU# 

00UT 



00091800 

00919 



* PUNCH LEADER/TRAILER TAPE 



00091900 

00920 

02003 

25400000 

ledr 

DAC 

0 



00092000 

00921 

02004 

00130402 


SNS 

2 



•E0009210C 

00922 

02005 

11302003 


BRU# 

LEDR RETURN. N0 0BJECT 

0UTPUT 


*E00092200 

00923 

02006 

12103706 


SP8 

ssss 



FEC 00092300 

00924 

02007 

25401400 


DAC 

*1400 0MIT LEADER IF MAG 

TAPE 


FEC 00092400 

00925 

02010 

11302003 


BRU# 

LEDR 0BJECT 0UTPUT 



FEC 00092500 

00926 

02011 

02077644 


LBA 

*m»92 


10/26/67 

JDJ »B 00092600 

00927 

02012 

03500360 


STA 

PBUF,1 



00092700 
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044004E 



01/20/71 

PAGE 27 

00928 

02013 

00000026 


IBS 






0 0 092800 

00929 

02014 

11102012 


BRU 

*-2 





0U092900 

00930 

02015 

01100126 


LAA 

PASS 





0Q093000 

00931 

02016 

00000022 


SAZ 


PASS 2 




0 U0931QQ 

00932 

02017 

11302003 


BRU* 

ledr 





00093200 

00933 

02020 

01077776 


LAA 

s *2 


10/26/67 

JDJ 

*B 

00093300 

00934 

02021 

12103706 


SPB 

SSSS 





00093400 

00935 

02022 

25400600 


DAC 

*600 





00093500 

00936 

02023 

01077773 


LAA 

5-5 


10/26/67 

JDJ 

*B 

00093600 

00937 

02024 

03100155 


STA 

PDEV 


... 



00093700 

00938 

02025 

55100000 


CALL 

HIWR 

0UTPUT LEADER T0 DEVICE 

09/18/67 

JDJ 


00093800 

00939 

02026 

35400224 


DAC 

PBUF-92 





00093900 

00940 

02027 

00000134 


DATA 

92 





00094000 

00941- 

02030 

01100155 

N 

LAA 

PDEV 





*E00094100 

00942 

02031 

11302003 


BRU* 

LEDR 





00094200 

00943 










00J9430P 

00944 





CL0SE 0UT 

PUNCH BUFFER 




0009441 

00945 










00 194500 

00946 

02032 

25400000 

CL0T 

DAC 

** 





00 9460 

00947 

02033 

01077776 


LAA 

5-2 


10/26/67 

JDJ 

*B 

00^94701 

00948 

02034 

12103706 


SPB 

SSSS 





001194800 

00949 

02035 

25400600 


DAC 

*600 





00094900 

00950 

02036 

01077773 


LAA 

5-5 


10/26/67 

JDJ 

*8 

00095000 

00951 

02037 

12103706 


SPB 

SSSS 




FEC 

00095100 

00952 

02040 

25401400 


DAC 

*1400 



FEC 

00095200 

00953 

02041 

01077772 


LAA 

5-6 


10/26/67 

JDJ 

*B 

000.95300 

00954 

02042 

03100155 


STA 

PDEV 





00(195400 

00955 

02043 

01100177 


LAA 

PUNF 

PUNCH FLAG 




Q0Q95500 

00956 

02044 

00000022 


SAZ 






00095600 

00957 

02045 

11102051 


BRU 

CL02 





00095700 

00958 

02046 

12102003 


SPB 

ledr 

PUNCH LEADER 

09/18/67 

JDJ 


00095800 

00959 

02047 

01100043 


LAA 

L044 

SET PUNCH FLAG N0N-ZER0 




00095900 

00960 

02050 

03100177 


STA 

PUNF 

WITH BUFFER START ADDRESS 




00096000 

00961 

02051 

01100202 

CL02 

LAA 

8SIZ 





00096100 

00962 

02052 

00000022 


SAZ 


PUNCH buffer empty 




00096200 

00963 

02053 

11102055 


BRU 

#*2 

N0 




00096300 
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00964 

02054 

11102117 


BRU 

CLQ4 

00965 

02055 

00130402 


SNS 

2 

§0966 

02056 

11102117 


BRU 

CL04 

00967 

02057 

01077624 


LAA 

*-108 

00968 

02060 

03100154 


STA 

CNTR 

00969 

02061 

02100154 

CKS1 

lba 

CNTR 

00970 

02062 

01500360 


LAA 

PBUF,1 

00971 

02063 

14100154 


IMS 

CNTR 

00972 

02064 

02500361 


LBA 

PBUF*1,1 

00973 

02065 

00001016 


LSL 

8 

00974 

02066 

00000030 


0BA 


00975 

02067 

05100156 


AHA 

T0TL 

00976 

02070 

03100156 


STA 

T0TL 

00977 

02071 

14100154 


IMS 

CNTR 

00978 

02072 

11102061 


BRU 

CKS1 

00979 

02073 

00000002 


NEG 


00980 

02074 

03100156 

N 

STA 

T0TL 

00981 

02075 

00001015 


RSL 

8 

00982 

02076 

03100360 


STA 

PBUF 

00983 

02077 

01100156 


LAA 

T0TL 

00984 

02100 

00001016 


LSL 

8 

00985 

02101 

00001015 


RSL 

8 

00986 . 

02102 

03100361 


STA 

PBUF *1 

00987 

02103 

12103706 


SPB 

SSSS 

00988 

02104 

25401400 


DAC 

*1400 

00989 

02105 

11110477 


BRU 

0BMG 

00990 

02106 

01100155 


LAA 

PDEV 

00991 

02107 

55100000 


CALL 

HSWR 

00992 

02110 

35400203 


DAC 

BSLC+2 

00993 

02111 

00000157 


DATA 

111 

00994 

02112 

00000003 

M0BJ 

CLA 


00995 

02113 

02077624 


LBA 

*-108 

00996 

02114 

03500360 


STA 

PBUF»1 

00997 

02115 

00000026 


IBS 


00998 

02116 

11102114 


BRU 

*-2 

00999 

02117 

01077624 

CL04 

LAA 

s-108 
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YES 

SET<N0 BINARY PUNCH) 


YES 

CL0SE 0UT BUFFER 


10/26/67 


09/18/67 

10/26/67 

10/26/67 


JDJ *B 


JO J 

JDJ *B 


JO J *B 


00096400 

00096500 

00096600 

00096700 

00096800 

00096900 

00097000 

00097100 

00097200 

00097300 

00097400 

00097500 

00097600 

00097700 

00097800 

00097900 

00098000 

00098100 

00098200 

00098300 

00098400 

00098500 

00098600 

00098700 

00098800 

00098900 

00099000 

00099100 

00099200 

00099300 

00099400 

00099500 

00099600 

00099700 

00099800 

00099900 
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11000 

02120 

03100200 


STA 

BL0C 

RESET BUFFER W0RD P0INTER 


p-'lC" on 

11001 

02121 

01100173 


IAA 

LC 

L0C C0UNTER 


ooiooioo 

11002 

02122 

03100201 


STA 

BSLC 

START L0AD ADDRESS 


0 100200 

11003 

02123 

00000003 


CLA 


RESET 


00100300 

11004 

02124 

03100202 


STA 

BSIZ 



0,100400 

11005 

02125 

03100156 


STA 

T0TL 



00100500 

11006 

02126 

03100360 


STA 

CKSM 



00100600 

31007 

02127 

03100361 


STA 

CKSM+1 



00100700 

31008 

02130 

11302032 


BRU# 

CL0T 



00100800 

31009 

02131 

00177772 

CKA1 

DATA 

0PT9-0PT1 

UNIT 1/0 CLASS INSTRUCTI0NS 


•E00100900 

31010 



e 





00101000 

31011 





DATA W0RD 

T0 PUNCH BUFFER 


00101100 

31012 








. 00101200 

31013 

02132 

25400000 

PNQH 

DAC 

#* 

PR0CESS PUNCH DATA EXIT 


00101300 

31014 

02133 

01100126 


LAA 

PASS 

PASS FLAG 


00101400 

01015 

02134 

00000022 


SAZ 




0!101500 

31016 

02135 

11302132 


8RU* 

PNCH 

PASS 1 EXIT 


001016 

31017 

02136 

01100174 


LAA 

L0AD 



0(31017. 

31018 

02137 

00001015 


RSL 

8 



0L1018C 

31019 

02140 

02100200 


LBA 

BL0C 

BUFFER L0CATI0N 


0010190 

31020 

02141 

03500360 


STA 

PBUF.i 

T0 PUNCH BUFFER 


0 C 10 2 0 0 

31021 

02142 

14100200 


IMS 

BL0C 



0010210^ 

01022 

02143 

01100175 


LAA 

DATA 



00102200 

01023 

02144 

00001015 


RSL 

8 



00102300 

01024 

02145 

03500361 


STA 

PBUF+1#1 

T0 PUNCH BUFFER 


00102400 

01025 

02146 

14100200 


IMS 

BL0C 



00102500 

01026 

02147 

01100175 


LAA 

DATA 



00102600 

01027 

02150 

00001016 


LSL 

8 



00102700 

01028 

02151 

00001015 


RSL 

8 



00102800 

01029 

02152 

03500362 


STA 

PBUF*2,1 



00102901 

01030 

02153 

01100202 


LAA 

BSIZ 

DECREMENT 


00103000 

01031 

02154 

Q6QO0OO1 


SMA 

*1 

BUFFER 10/26/67 

JDJ *B 

00103100 

01032 

02155 

03100202 


STA 

BSIZ 

SIZE 


00103200 

01033 

02156 

14100200 


IMS 

BL0C 

CHECK F0R FULL BUFFER 


00103300 

01034 

02157 

11102161 


BRU 

*♦2 



00103400 

01035 

02160 

12102032 


SP8 

CL0T 

0UTPUT FULL BUFFER 09/18/67 

JDJ 

0010350P 
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01036 

02161 

11302132 


BRU* 

PNCH 

EXIT PUNCH DATA PR0CESS 


00103600 

01037 



•INPUT/0UTPUT CLASS A 

INSTRUCTI0NS 


00103700 

01038 



• 

1/0* 

C*H#M 



00103800 

01039 



# - 


SNS,SUN,SCN, 

A0C,AIC,M0C,MIC,BTC,TUN,TCN» 


00103900 

01040 

02162 

00000003 

CHAS 

CLA 


SET FLAG F0R 

CKA 

001Q4000 

01041 

02163 

03102266 


STA 

FLCrl 

UNIT 1/0 INSTRUCTU0N CLASS 

CKA 

00104100 

01042 

02164 

12102307 

10CA 

SPB 

SDAB 

GET CHAN/SWITCH FIELD 


00104200 

01043 

02165 

01102266 


LAA 

FLG1 

CHECK F0R UNIT 1/0 

CKA 

00104300 

01044 

02166 

00000023 


SAN 



CKA 

00104400 

01045 

02167 

11102200 


BRU 

1001+3 

YES 

CKA 

00104500 

01046 

02170 

01100175 


LAA 

DATA 

INSRUCTI0N 


00104600 

01047 

02171 

00000032 


SN0 


TEST 


00104700 

01048 

02172 

11102175 


BRU 

1001 

N0 


00104800 

01049 

02173 

00000716 


LSI 

7 



00104900 

01050 

02174 

00000023 


SAN 


SNS 


00105000 

01051 

02175 

Q0U0Q113 

1001 

Fit 

1 

N0 


00105100 

01052 

02176 

00001413 

V 

FLL 

12 

CHECK FIELD WIDTH 


00105200 

01053 

02177 

11102202 


BRU 

* + 3 


CKA 

00105300 

01054 

02200 

01100175 


LAA 

DATA 

SHIFT F0R UNIT 1/0 

CKA 

00105400 

01055 

02201 

00001213 


FLL 

10 


CKA 

00105500 

01056 

02202 

00000022 


SAZ 


FIELD WIDTH EXCEEDED 


00105600 

01057 

02203 

12102330 


SPB 

FW6R 

YES 


00105700 

01058 

02204 

01102266 


LAA 

FLG1 


CKA 

00105800 

01059 

02205 

00000022 


SAZ 



CKA 

00105900 

01060 

02206 

11102213 


BRU 

BERR 


CKA 

00106000 

01061 

02207 

01100170 


LAA 

SCAD 


CKA 

00106100 

01062 

02210 

00001216 


LSL 

10 


CKA 

00106200 

01063 

02211 

00001215 


RSI 

10 


CKA 

00106300 

01064 

02212 

12102317 


SPB 

I0AT 


CKA 

00106400 

01065 

02213 

01100170 

BERR 

LAA 

SCAD 


CKA 

00106500 

01066 

02214 

00001416 


LSL 

12 

TRUNCATE 


00106600 

01067 

02215 

00001415 


RSL 

12 

CHAN/SW FIELD 


00106700 

01068 

02216 

12102317 


SPB 

I0AT 

1/0 add and scan end test 


00106800 

01069 



*1/0 

CLASS 

i B 



00106900 

. 01070 



*■ 

1/0* 

W, M 



00107000 

01071 



• ACT 

TEX 




00107100 
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01072 

02217 

01102266 

10CB 

LAA 

FLG1 

CHECK FLAG F0R UNIT 1/0 


CKA 

LulO/200 

01073 

02220 

00000022 


SA2 




CKA 

o 107300 

01074 

02221 

11102270 


BRU 

20R0 

N0 


CKA 

0 107400 

0107.5 

02222 

02100165 


LBA 

SCCC 

YES, CHECK F0R WAIT(W) 


CKA 

0 107500 

01076 

02223 

14100165 


IMS 

SCCC 

MERGE <R), 0R MAP (M) 


CKA 

0ul07600 

01077 

02224 

01500415 


LAA 

BUFF + '13,1 



CKA 

00107700 

01078 

02225 

15000315 


CMA 

s» 315 

M 

10/26/67 

JDJ *B 

00107800 

01079 

02226 

11102230 


BRU 

*♦2 



CKA 

00107900 

01080 

02227 

11102241 


BRU 

CKA2 

SET MAP BIT R0UTINE 


CKA 

00108000 

01061- 

02230 

15000327 


CMA 

3*327 

W . . .... • . 

10/26/67 

JDJ *B 

001438100, 

01062 

02231 

11102233 


BRU 

**2 



CKA 

00108200 

01083 

02232 

11102245 


BRU 

CKA3 

SET WAIT BIT R0UTINE 


CKA 

• 00108300 

01084 

02233 

15000322 


CMA 

3*322 

R 

10/26/67 

JDJ **B 

00108400 

01085 

02234 

11102236 

V 

BRU 

• ♦2 



CKA 

00108500 

01086 

02235 

11102251 


BRU 

CKA4 

SET MERGE BIT R0UTINE 


CKA 

OC108600 

01087 

02236 

12102330 

baba 

SPB 

FW6R 

ERR0R N0T W 0R R 

09/18/67 

JDJ 

00108- 

01088 

02237 

01000240 


LAA 

r'240 


MDL 12/30/68 «C 

or1 Q68 i 

01089 

02240 

11102304 


BRU 

1002 



CKA 

Ot 0 89 C 

01090 

02241 

01100175 

CKA2 

LAA 

DATA 

SET 


CKA 

Ob .0900 

01091 

02242 

05001.000 


AMA 

a’1000 

MAP BIT 

10/26/67 

JDJ *B 

00 .0910 

01092 

02243 

03100175 


STA 

DATA 

BIT 


CKA 

0010920. 

01093 

02244 

11102254 


BRU 

ZULU 

L00K AT NEXT CHARACTER 


CKA 

00109300 

01094 

02245 

01100175 

CK A3 

LAA 

DATA 

SET 


CKA 

00109400 

01095 

02246 

05000100 


AMA 

3*100 

WAIT BIT 

10/26/67 

JDJ *B 

00109500 

01096 

02247 

03100175 


STA 

DATA 

FLAG 


CKA 

00109600 

01097 

02250 

lli02254 


BRU 

ZULU 

L00K AT NEXT CHARACTER 


CKA 

00109700 

01098 

02251 

01100175 

CKA4 

LAA 

DATA 

SET 


CKA 

00109800 

01099 

02252 

05004000 


AMA 

s*4000 

MERGE BIT F0R AJP INST 

10/26/67 

JDJ *B 

00109900 

01100 

02253 

03100175 


STA 

DATA 

bit 


CKA 

00110000 

01101 

02254 

02100165 

ZULU 

LBA 

SCCC 

R0UTINE T0 TEST 


CKA 

ooiioioo 

01102 

02255 

14100165 


IMS 

SCCC 

NEXT CHARACTER 


CKA 

00110200 

01103 

02256 

01500415 


LAA 

BUFF +'13*1 



CKA 

00110300 

01104 

02257 

15000254 


CMA 

3*254 

C0MMA 

10/26/67 

JDJ *B 

00110400 

01105 

02260 

11102262 


BRU 

**♦2 

N0 


CKA 

00110500 

01106 

02261 

11102222 


BRU 

10CB + 3 

YES A C0MMA 


CKA 

00110600 

01107 

02262 

15000240 


CMA 

3*240 

SPACE 

10/26/67 

JDJ *B 

0Q11070C 
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01108 

02263 

11102236 


BRU 

BABA 


N0, S0 ERR0R 

CKA 

00110800 

01109 

02264 

11102304 


BRU 

1002 



CKA 

00110900 

OHIO 

02265 

11102236 


BRU 

BABA 


N0, S0 ERR0R 

CKA 

00111000 

01111 

02266 

00000000 

FLG1 

DATA 

0 


FLAG Os UNIT I/0( -177777 = N0N UNIT CKA 

00111100 

01112 

02267 

00000000 

TS1 

data 

0 


TEMP ST0RAGE 

CKA 

00111200 

01113 

02270 

12102307 

20R0 

SPB 

SDAB 


GET WAIT FLAG 

CKA 

00111300 

01114 

02271 

00001713 


FLU 

15 


CHECK FIELD WIDTH 


00111400 

01115 

02272 

00000022 


SAZ 



EXCEEDED 


00111500 

01116 

02273 

12102330 


SPB 

FWER 


YES 

1 

00111600 

01117 

02274 

00000713 


FLU 

7 


P0SITI0N WAIT FLAG 


00111700 

01118 

02275 

12102317 


SPB 

I0AT 


1/0 ADD AND SCAN END 

TEST 

00111800 

* 01119 



*1/0 

CLASS C 




00111900 

01120 



* 1/ 

0*M 





00112000 

01121 



• PIE, 

PID 





00112100 

01122 

02276 

12102307 

I0CC 

SPB 

SDAB 


GET MAP BIT 


* 00112200 

01123 

02277 

00001713 


FLL 

15 


CHECK FIELD WIDTH 


00112300 

01124 

02300 

00000022 

% 

SAZ 



EXCEEDED 


00112400 

01125 

02301 

12102330 


SPB 

FWER 


YES 


00112500 

01126 

02302 

00001213 


FLL 

10 


P0SIT10N MAP BIT 


00112600 

01127 

02303 

11107644 


BRU 

FECP 


0MIT ’A* 0N PIE,PID 

09/18/67 JOJ 

00112700 

01128 

02304 

03100162 

1002 

STA 

sctm 



MDL 12/30/68 «C 

00112800 

01129 

02305 

12102630 


SPB 

LABP 



MDL 12/30/68 *C 

00112900 

01130 

02306 

11102407 


BRU 

MR22 


EXIT 


- 00113000 

01131 

02307 

25400000 

SDAB 

DAC 

6 « 




00113100 

01132 

02310 

i2106556 


SPB 

SCAN 


GET SUB FIELD 

09/18/67 JDJ 

00113200 

01133 

02311 

00000005 


TAB 



SAVE FIELD 


00113300 

01134 

02312 

01100164 


LAA 

SCDF 


DEFINE FLAG 


00113400 

01135 

02313 

05100171 


AHA 

SCRL 


RELOCATION FLAG 


00113500 

01136 

02314 

00000022 


SAZ 



DEFINE ABSOLUTE FIELD 


00113600 

01137 

02315 

12102330 


SPB 

FWER 


N0 


00113700 

01138 

02316 

11302307 


BRU* 

SDAB 


EXIT 


00113800 

01139 

02317 

25400000 

10AT 

DAC 

»• 


1/0 ADD AND SCAN END 

TEST 

00113900 

01140 

02320 

02100175 


lba 

DATA 




00114000 

01141 

02321 

00000030 


0BA 





00114100 

01142 

02322 

03100175 


STA 

DATA 




00114200 

* 01143 

02323 

01100162 


LAA 

SCTM 




00114300 
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01144 

02324 

06000254 


SMA 

s'254 

C0MMA 

10/26/67 

JDJ 

•B 

0 J114400 

01145 

02325 

00000022 


SAZ 


SCAN ENDED 




00114500 

01146 

02326 

11102237 


BRU 

CKA2-2 


MDL 12/30/68 *C 


00114600 

01147 

02327 

11302317 


BRU* 

I0AT 

EXIT 




00114700 

01148 



« 







00114800 

01149 



* 


SET ERR0R 

FLAG 


, 


00114900 

01150 



• 







00115000 

01151 

02330 

25400000 

FWER 

DAC 

#* 





00115100 

01152 

02331 

01000305 


LAA 

s '305 

E 

10/26/67 

JDJ 

*B 

00115200 

01153 

02332 

03100404 


STA 

BUFF+2 

- 


, . 


00115300 

01154 

02333 

00000003 


CLA 


CLEAR FIELD EXCESS 




00115400 

01155 

02334 

11302330 


BRU* 

FWER 

EXIT 




. 00115500 

01156 



« 


DAC PSEUD0 

-0P PR0CESS0R 




00115600 

01157 

02335 

12102630 

psa2 

SPB 

LABP 

PR0CESS LABEL 

09/18/67 

JDJ 


00115700 

01158 

02336 

02053000 


LBA 

s' 53000 


10/26/67 

JDJ 

• B 

00115800 

01159 

02337 

04100174 


STB 

L0AD 





0011590 

01160 

02340 

01040000 


LAA 

s*40000 


10/26/67 

JDJ 

*8 

001160C 

01161 

02341 

03100176 


STA 

BAD 





00116101 

01162 

02342 

01100175 


LAA 

DATA 





00 1620i 

01163 

02343 

00000516 


LSL 

5 

M0VE INDIRECT BIT 




00116301 

01164 

02344 

03100175 


STA 

DATA 





00116400 

01165 

02345 

12106556 

PS04 

SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/18/67 

JDJ 


00116500 

01166 

02346 

00000024 


SAP 






00116600 

01167 

02347 

12102330 


SPB 

FWER 

ERR0R 0VER 14 BIT ADDRS 

09/18/67 

JDJ 


00116700 

01168 

02350 

01100170 


LAA 

SCAD 





00116800 

01169 

02351 

05100175 

PS10 

AMA 

DATA 





00116900 

01170 

02352 

00000025 


S0F 






00117000 

01171 

02353 

00000020 


ASC 






00117100 

01172 

02354 

03100175 


STA 

DATA 





00117200 

01173 

02355 

01100171 


LAA 

SCRL 





00117300 

01174 

02356 

00000022 


SAZ 






00117400 

01175 

02357 

01020000 


LAA 

s *20000 


MDL 1/31/69 

*C 


00117500 

01176 

02360 

05100174 

PS98 

AMA 

L0AD 





00117600 

01177 

02361 

03100174 


STA 

L0AD 





00117700 

01178 

02362 

01100162 


LAA 

SCTM 

TERMINAL CHARACTER 




00117800 

01179 

02363 

00001416 


LSL 

12 





00117900 
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01180 

02364 

00000023 


SAN 


SKIP IF C0MMA 




00118000 

01181 

02365 

11102407 


BRU 

MR22 

N0 INDEX TAG.,0UTPUT 




00118100 

01182 

02366 

12106556 


SPB 

SCAN 

SCAN NEXT ADDRESS FIELD 

09/18/67 

JDJ 


00118200 

01183 

02367 

15000001 


CMA 

si 


10/26/67 

JD J 

*B 

00118300 

01184 

02370 

00000023 


SAN 






00118400 

01185 

02371 

11102373 


BRU 

PS20 

I NDEXsO»1 




00118500 

01186 

02372 

12102330 


SPB 

FWER 

ERR0R INDEX 0VER 1 

09/18/67 

JDJ 


00118600 

01187 

02373 

00001016 

PS20 

LSL 

8 





00118700 

01188 

02374 

00000005 


TAB 


SAVE INDEX BIT 


, 


00118800 

01189 

02375 

01100164 


LAA 

SCDF 

DEFINED FLAG 




00118900 

01190 

02376 

05100171 


AMA 

SCRL 

rel/abs flag 




00119000 

01191 

02377 

OO0OOO22 


SA2 






00119100 

01192 

02400 

1H02415 


BRU 

MR24 

ERR0R,,•N0T DEFINED ABS, 




00119200 

01193 



» 







00119300 

01194 

02401 

16100174 

MR21 

amb 

L0AD 





00119400 

01195 

02402 

04100174 


STB 

L0AD 





00119500 

01196 

02403 

0ll00162 

MR'SA 

LAA 

SCTM 

TERMINAL CHARACTER 




00119600 

01197 

02404 

00001416 


LSL 

12 





00119700 

01198 

02405 

00000024 


SAP 






00119800 

01199 

02406 

11102415 


BRU 

MR24 

ERR0R,,« C0MMA TERM INAT0R 




00119900 

01200 

02407 

01100163 

MR22 

LAA 

SCF 0 

FIELD 0CCUPIED FLAG 




00120000 

01201 

02410 

00000022 


SA2 






00120100 

01202 

02411 

11102416 


BRU 

MR26 





00120200 

01203 

02412 

01000301 

MR99 

LAA 

3*301 

A 

10/26/67 

JDJ 

• B 

00120300 

01204 

02413 

03iOO4Q4 


STA 

BUFF + 2 





00120400 

01205 

02414 

1H02416 


BRU 

MR26 





00120500 

01206 

02415 

12102330 

MR24 

SPB 

FWER 

ERR0R FIELD VACANT 

09/18/67 

JDJ 


00120600 

01207 

02416 

12101614 

MR26 

SPB 

LIN 

LIST THE LINE 

09/18/67 

JDJ 


00120700 

01208 

02417 

14100173 


IMS 

LC 

ADVANCE L0CATI0N C0UNTER 




00120800 

01209 

02420 

12102132 


SPB 

PNCH 

SET DATA INT0 PUNCH BUF 

09/18/67 

JDJ 


00120900 

01210 

02421 

11100702 


BRU 

EX02 

PR0CESS NEXT CARD 

09/18/67 

JDJ 


0012100 C 

01211 



• 



P299 REM0VED 

MDL 1/31/69 

' «C 


00121100 

01212 



• 


BAC PSEUD0-0P 

PR0CESS0R 




00121200 

01213 

02422 

12102630 

PS30 

SPB 

labp 

PR0CESS THE LABEL FIELD 

09/18/67 

JDJ 


00121300 

01214 

02423 

02057000 


lba 

3*57000 ., 


10/26/67 

JDJ 

«B 

00121400 

01215 

02424 

O41O0174 


STB 

L0AD 





00121500 
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01216 

02425 

01050000 


LAA 

s 1 50000 


10/26/67 

JDJ «8 

0 0121 ..0 0 

01217 

02426 

03100176 


STA 

BAD 




00121700 

01218 

02427 

01100175 


LAA 

DATA 

CHECK F0R INDIRECT BIT 



0(121800 

01219 

02430 

00000022 


SA2 





0 121900 

01220 

02431 

11102433 


BRU 

*♦2 




Qi122000 

01221 

02432 

11102345 


BRU 

PS04 

N0 INDIRECT BIT 



00122100 

01222 

02433 

12102330 


SPB 

FWER 

indirect n0t all0wed 

09/18/67 

JD J 

00122200 

01223 

02434 

11102344 

PS32 

BRU 

PS04-1 

A REG C0NTAINS HER0 



00122300 

01224 



# 


ABS PSEUD0-0P 

PR0CESS0R 



00122400 

01225 

02435 

00000003 

PS34 

CL A 





00122500 

01226 

02436 

03100172 

PS35 

STA 

RLC 

SET REL/ABS L0C,FLAG*ABS 



00122600 

01227 

02437 

12 i02630 


SPB 

LABP 

PR0CESS LABEL FIELD 

09/18/67 

JDJ 

00122700 

01228 

02440 

12106556 


SPB 

SCAN 

PR0CESS VARIABLE FIELD 

09/18/67 

JD J 

• 00122800 

01229 

02441 

01100163 

s 

LAA 

SCF0 

FIELD 0CCUPIED FLAG 



00122900 

01230 

02442 

00000022 


SA2 





00123000 

01231 

02443 

12102330 

PS36 

SPB 

FWER 

ERR0R 0CCUPIED FIELD 

09/18/67 

JDJ 

OU 123100 

01232 

02444 

12101614 

PS37 

SPB 

LIN 

LIST THE LINE 

09/18/67 

JDJ 

001232 

01233 

02445 

11100702 


BRU 

EX02 

PR0CESS THE NEXT REC0RD 

09/18/67 

JDJ 

0012331 

01234 



• 






0012340 

01235 



* 


BSS PSEUD0/0P 

PR0CESS0R 



0012350 

01236 

02446 

12102630 

PS42 

SPB 

LABP 

PR0CESS LABEL FIELD 

09/18/67 

JDJ 

-00 12360 

01237 

02447 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/18/67 

JDJ 

00 ■ 23700 

01238 

02450 

03100175 


STA 

DATA 




004.23800 

01239 

02451 

12107746 


SPB 

PSCK 

TEST F0R DEF/0CC/TERM 

09/18/67 

JDJ 

00123900 

01240 

02452 

12101614 


SPB 

LIN 

LIST A LINE 

09/18/67 

JDJ 

00124000 

01241 

02453 

Olio0175 


LAA 

DATA 




00124100 

01242 

02454 

05100173 


AMA 

LC 

INCREMENT L0C. C0UNTER 



00124200 

01243 

02455; 

03100173 


STA 

LC 




00124300 

01244 

02456 

02100172 


LBA 

RLC 




00124400 

01245 

02457 

0.4100171 


STB 

SCRL 




00124500 

01246 

02460 

12102524 


SPB 

PS65 

0UTPUT 0RG 



00124600 

01247 

02461 

11100702 


BRU 

EX02 

PR0CESS NEXT REC0RD 

09/18/67 

JDJ 

00124700 

01248 



« 






00124800 

01249 



» 


BES PSEUD0»0P 

PR0CESS0R 



00124900 

01250 

02462 

12106556 

PS46 

SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/18/67 

JDJ 

00125000 

01251 

02463 

03100175 


STA 

DATA 




0012510C 
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01252 

02464 

05100173 


AMA 

LC 

. INCREMENT L0C, C0UNTER 



00125200 

01253 

02465 

03100173 

PS50 

STA 

LC 




00125300 

01254 

02466 

02100172 


LBA 

RLC 




00125400 

01255 

02467 

04100171 


STB 

SCRL 




00125500 

01256 

02470 

12102524 


SPB 

PS65 

0UTPUT 0RG 



00125600 

01257 

02471 

12102630 

PS51 

SPB 

LABP 

PROCESS LAVEL FIELD 

(79/18/67 

JD J 

00125700 

01258 

02472 

12107746 

PS52 

SPB 

PSCK 

TEST FOR DEF/0CC/TERM 

09/18/67 

JDJ 

00125800 

01259 

02473 

11102444 


BRU 

PS37 

60 LIST THEN PR0C NEXT 

09/18/67 

JD J 

00125900 

01260 



• 






00126000 

01261 



•. 


0 RG PSEUD0-0P 

PROCESSOR 



00126100 

01262 

02474 

12106556 

PS56 

SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/18/67 

JD J 

00126200 

01263 

02475 

11102465 

PS57 

BRU 

PS50 




00126300 

01264 









00126400 

01265 



* 


EQU PSEUD0-0P 

PROCESSOR 



00126500 

01266 

02476 

0110Q173 

PS60 

LAA 

LC 




00126600 

01267 

02477 

03100137 


STA 

T1MP 

SAVE LC 



* 00126700 

01268 

02500 

04100060 

\ 

STB 

EQ 




00126800 

01269 

02501 

01100172 


LAA 

RLC 




00126900 

01270 

02502 

03100140 


STA 

T2MP 

SAVE RLC 



00127000 

01271 

02503 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/18/67 

JD J 

00127100 

01272 

02504 

03100173 


STA 

LC 

SET ITEMS DEFINITION 



00127200 

01273 

02505 

02100171 


LBA 

SCRL 

ITEMS RELATIVE FLAG 



00127300 

01274 

02506 

04i00172 


STB 

RLC 




00127400 

01275 

02507 

12102524 


SPB 

PS65 

0UTPUT 0RG 



00127500 

01276 

02510 

12i02630 


SPB 

LABP 

PROCESS THE LABEL FIELD 

09/18/67 

JDJ 

00127600 

01277 

02511 

01100137 


LAA 

T1MP 




00127700 

01278 

02512 

03100173 


STA 

LC 

RESET LC AND RLC 



00127800 

01279 

02513 

02100140 


LBA 

T2HP 




00127900 

01280 

02514 

04100172 


STB 

RLC 




00128000 

01281 

02515 

04100171 


STB 

SCRL 




00128100 

01282 

02516 

12102524 


SPB 

PS65 

OUTPUT 0RG 



00128200 

01283 

02517 

01100170 


LAA 

SCAD 




00128300 

01284 

02520 

03100175 


STA 

DATA 




00128400 

01285 

02521 

00000003 


cla 





00128500 

01286 

02522 

03100174 


STA 

LBAD 




00128600 

01287 

02523 

lli02472 


BRU 

PS52 

TEST AND LIST LINE 



00128700 
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01288 

02524 

25400000 

PS65 

DAC 

*• 




00128800 

01289 

02525 

03100175 


STA 

DATA 




00128900 

01290 

02526 

01100172 


LAA 

RLC 




00129000 

01291 

02527 

00000022 


SA2 





00129100 

01292 

02530 

11102535 


BRU 

PSRC 




00129200 

01293 

02531 

05040000 

PSBK 

AMA 

s*140000 


10/26/67 

JDJ *8 

00129300 

01294 

02532 

03100174 


STA 

L0AD 




00129400 

01295 

02533 

12i02132 


SP8 

PNCH 

PUNCH BINARY 0UTPUT 

09/21/67 

JDJ 

00129500 

01296 

02534 

11302524 


BRU* 

PS65 




00129600 

01297 

02535 

01100171 

PSRC 

LAA 

SCRL 




0012970D' 

01298 

02536 

00000022 


SA2 





00129800 

01299 

02537 

01020000 


LAA 

5*20000 

•020000 

11/03/67 

JDJ 

.*00129900 

01300 

02540 

11102531 


BRU 

PSBK 




00130000 

01301 



V 

* 






00130100 

01302 

02541 

00000000 

augm 

DATA 

0 

AUGMENTED INSTRUCTI0N 

FLAG (N0N-2ER0 

5 SET) 

*E00130200 

01303 





AUGMENTED 

I NSTRUCT10NS 



001303^ : 

01304 

02542 

12102630 

MR50 

SPB 

LABP 

PR0C LABEL FLD 

11/07/67 

JDJ *B 

0013040C 

01305 

02543 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE 

09/21/67 

JDJ 

00l3050 r 

01306 

. 02544 

01100163 


LAA 

SCF0 

FIELD 0CCUPANCY FLAG 



0013060 

01307 

02545 

00000022 


SA2 





00130701 

01308 

02546 

11102412 


BRU 

MR99 

ERR0R--ADDRESS PRESENT 



00130800 

01309 

02547 

11102416 


BRU 

MR26 

ADDRESS FIELD VACANT 



00130900 

01310 



« 






00131000 

01311 



# 


SHIFT INSTRUCT10N PR0CESS0R 



00131100 

01312 

02550 

12102630 

MR60 

SPB 

labp 

PR0CESS LABEL FIELD 

09/21/67 

JDJ 

00131200 

0i3l3 

02551 

12106556 


SPB 

SCAN 

SCAN VARIABLE FIELD 

09/21/67 

JDJ 

00131300 

01314 

02552 

06000020 


SMA 

s 16 


10/26/67 

JDJ *B 

00131400 

01315 

02553 

00000023 


SAN 


SHIFT C0UNT 



00131500 

01316 

02554 

11102415 


BRU 

MR24 

ERR0Ri..T00 LARGE 



00131600 

01317 

02555 

01100164 


LAA 

SCDF 

DEFINED ADDRESS FLAG 



00131700 

01318 

02556 

05100171 


AMA 

SCRL 

ABS0LUTE/REL FLAG 



00131800 

01319 

02557 

00000022 


SA2 





00131900 

01320 

02560 

1H02412 


BRU 

MR99 

ERR0R--ADDRESS TYPE 



00132000 

01321 

02561 

02100170 


lba 

SCAD 




00132100 

01322 

02562 

00000613 


FLL 

6 

P0SITI0N SHIFT C0UNT 



00132200 

01323 

02563 

16100175 


AMB 

DATA 




00132300 
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01324 

02564 

04100175 


STB 

DATA 




00132400 

01325 

02565 

11102403 


BRU 

MR2A 




00132500 

01326 



« 






00132600 

01327 



» 

LITERAL PR0CESS0R 




00132700 

01328 

02566 

01100175 

LITR 

LAA 

DATA 




00132800 

01329 

02567 

00000024 


SAP 





00132900 

01330 

02570 

12102330 


SPB 

FWER 

INDRIECT N0T ALLOWED 

09/21/67 

JDJ 

00133000 

01331 

02571 

Qli0Q174 

IIT1 

LAA 

L0AD 




00133100 

01332 

02572 

05000400 


AMA 

s'100400 


10/26/67 

JD J *B 

00133200 

01333 

02573 

03100174 


STA 

LOAD 




00133300 

01334 

02574 

00000003 


CLA 





00133400 

01335 

02575 

03100163 


STA 

SCF0 




00133500 

01336 

02576 

01100077 


LAA 

IM 




00133600 

01337 

02577 

00000022 


SAZ 





00133700 

01338 

02600 

11102602 


BRU 

#♦2 




00133800 

01339 

02601 

11102605 


BRU 

#♦4 

IMsQ 



00133900 

01340 

02602 

06000001 

V 

sma 

*1 


10/26/67 

JDJ *B 

00134000 

01341 

02603 

00000022 


SAH 


I M«1 



00134100 

01342 

02604 

11102407 


BRU 

MR22 




00134200 

01343 

02605 

01100121 


LAA 

BC1L 




00134300 

01344 

02606 

00000022 


SAZ 





00134400 

01345 

02607 

11102626 


BRU 

BCIi 




00134500 

01346 

02610 

01100074 


LAA 

ID 




. 00134600 

01347 

02611 

00000005 


TAB 





00134700 

01348 

02612 

01100120 


LAA 

SLIT 




00134800 

01349 

02613 

00000022 


SAZ 





00134900 

01350 

Q2614 

11102620 


BRU 

#*4 




00135000 

01351 

02615 

OO0OQOO4 


TBA 





00135100 

01352 

02616 

00000024 


SAP 





00135200 

01353 

02617 

1H02407 


BRU 

MR22 




00135300 

01354 

02620 

00000004 


TBA 





0013540C 

01355 

02621 

03100175 


STA 

DATA 




00135500 

01356 

02622 

01100104 


LAA 

FET9 




00135600 

01357 

02623 

00001416 


LSL 

12 




00135700 

01358 

02624 

00000024 


SAP 





00135800 

01359 

02625 

12102330 


SPB 

FWER 

LITERAL ERR0R 

09/21/67 

JDJ 

00135900 
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01360 

02626 

14100163 

BC11 

IMS 

SCF0 





00136000 

01361 

02627 

11102407 


BRU 

MR22 





00136100 

01362 



*■ 







0Q136200 

01363 



* LABEL PR0CESS 





0 J136300 

01364 

02630 

25400000 

IABP 

DAC 

• « 





00136400 

01365 

02631 

02077774 


LBA 

s » 4 


10/26/67 

JDJ 

*B 

00136500 

01366 

02632 

01500422 

LAOO 

IAA 

BUFF♦ ' 20 »1 





00136600 

01367 

02633 

06000240 


SNA 

s ' 2 4 0 

SPACE 

10/26/67 

JDJ 

*B 

00136700 

01368 

02634 

00000022 


SA2 






00136800 

01369 

02635 

11102652 


BRU 

LA10 





00136900 

01370 

02636 

00000026 


IBS 






00137000 

01371 

02637 

11102632 


BRU 

LAOO 





• 00137100 

01372 

02640 

11302630 


BRU* 

LABP 





00137200 

01373 

02641 

01500422 

IA01 

LAA 

BUFF+ 1 20 * 1 





00137300 

01374 

02642 

15000244 


CMA 

s'244 

I 

10/26/67 

JDJ 

*B 

Of137400 

01375 

02643 

11103063 


BRU 

LA12 





Ot1375 

01376 

02644 

11102663 


BRU 

LAQ3 





01 L376l. 

01377 

02645 

15000272 


CMA 

s'272 

DEC 10 IN ASCII 

10/26/67 

JDJ 

*B 

Ot13770' 

01378 

02646 

15000257 


CMA 

«' 257 

DEC -1 IN ASCII 

10/26/67 

JDJ 

*B 

01 .3780 

01379 

02647 

11102657 


BRU 

LA02 

N0N-NUMERIC 




004.3790C 

01380 

02650 

11102657 


BRU 

LA02 

N0N-NUMERIC 




00138000 

01381 

02651 

11102663 


BRU 

LA03 

NUMERIC 




00138100 

01382 

02652 

00000004 

LA10 

tba 






00138200 

01383 

02653 

06077774 


SMA 

3 » 4 


10/26/67 

JDJ 

*B 

00138300 

01384 

02654 

00000022 


SA2 






00138400 

01385 

02655 

12102330 


SP8 

FWER 

T00 MANY CHARACTERS 

09/21/67 

JDJ 


00138500 

01386 

02656 

01500422 


LAA 

BUFF♦ ' 20 »1 





00138600 

01387 

02657 

15000333 

LAQ2 

CMA 

*'333 

2*1 

10/26/67 

JDJ 

*B 

00138700 

01388 

02660 

15000277 


CMA 

s'277 

AT SIGN 0R A-l 

10/26/67 

JDJ 

*B 

00138800 

01389 

02661 

00000033 


N0P 



09/21/67 

JDJ 


00138900 

01390 

02662 

12102330 


SPB 

FWER 

N0T ALPHABETIC 

09/21/67 

JDJ 


00139000 

01391 

02663 

00000026 

LA03 

IBS 






00139100 

01392 

02664 

lli02641 


BRU 

LA01 





00139200 

01393 

02665 

00000005 


TAB 






00139300 

01394 

02666 

01100420 


LAA 

BUFF + * 16 





00139400 

01395 

02667 

00001216 


LSL 

10 





00139500 
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01396 

02670 

00000614 


FRL 

6 




00139600 

01397 

02671 

01007777 


LAA 

9*7711 


10/26/67 JDJ 

*B 

00139700 

01398 

02672 

00000027 


ABA 





00139800 

01399 

02673 

03100366 


STA 

SYM+1 




00139900 

01400 

02674 

01100416 


LAA 

BUFF♦'14 




00140000 

01401 

02675 

00001216 


LSL 

10 




00140100 

01402 

02676 

02100417 


LBA 

BUFF *'15 




00140200 

01403 

02677 

00000614 


FRL 

6 




00140300 

01404 

02700 

01007777 


LAA 

9*7777 


10/26/67 JDJ 

*B 

00140400 

01405 

02701 

00000027 


ABA 





00140500 

01406 

02702 

03100365 


STA 

SYM 




00140600 

01407 

02703 

02100002 


LBA 

L0W 




00140700 

01408 

02704 

01400000 

LA11 

LAA 

0,1 




00140800 

01409 

02705 

00000022 


$AZ 





00140900 

01410 

02706 

11102730 


BRU 

LA04 




00141000 

01411 

02707 

01100365 


LAA 

SYM 




00141100 

01412 

02710 

03400000 

s 

STA 

0,1 




00141200 

01413 

02711 

01100172 


LAA 

RLC 




00141300 

01414 

02712 

00000022 


SAZ 





00141400 

01415 

02713 

01020000 


LAA 

**20000 


10/26/67 JDJ 

*B 

00141500 

01416 

02714 

05100366 


AMA 

SYM*1 




00141600 

01417 

02715 

03400001 


STA 

1,1 




00141700 

01418 

02716 

01100173 


LAA 

LC 




00141800 

01419 

02717 

03400002 


STA 

2,1 




00141900 

01420 

02720 

16000003 


AMB 

*3 


10/26/67 JDJ 


00142000 

01421 

02721 

00000004 


TBA 





0014210C 

01422 

02722 

06100001 


SMA 

HIGH 




00142200 

01423 

02723 

00000023 


SAN 


END 0F ASSIGN TABLE 



00142300 

01424 

02724 

11302630 


BRU* 

LABP 

YES,EXIT LABEL PR0CESS 



00142400 

01425 

02725 

00000003 


CLA 





0014250; 

01426 

02726 

03400000 


STA 

0,1 




Q014260C 

01427 

02727 

11302630 


BRU* 

LABP 




00142700 

01428 

02730 

00000416 

LA04 

LSL 

4 




00142800 

01429 

02731 

00000415 


RSL 

4 




00142901 

01430 

02732 

15100365 


CMA 

SYM 




00143000 

01431 

02733 

11102735 


BRU 

*♦2 




00143100 
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01432 

02734 

11102756 


BRU 

LA06 




00143200 

01433 

02735 

16000003 

IA15 

AMB 

= 3 



10/26/67 

JDJ *B 00143300 

01434 

02736 

00000004 


TBA 





00143400 

01435 

02737 

15100001 


CMA 

NIGH 




00143500 

01436 

02740 

11102704 


BRU 

LA11 




00143600 

01437 

02741 

11102754 


BRU 

LA05 




00143700 

01438 



« 

ST0P 

WHEN SYMB0L 

TABLE FULL 


8/17/67 JDJ 

0011841000143800 

01439 

02742 

01077777 


LAA 

*•1 

TELETYPE 


10/26/67 

JDJ *B 00143900 

01440 

02743 

55100000 


CALL 

H$WR 

0UTPUT 


8/17/67 JDJ 

0011843000144000 

01441 

02744 

35402751 


DAC 

* + 5 

BUFFER ADDRESS 

8/17/67 JDJ 

0011844000144100 

01442 

02745 

00000003 


DATA 

3 

3 CHARACTERS 

8/17/67 JDJ 

0011845000144200 

01443 

02746 

01000324 


LAA 

a 1 324 

ERR0R C0DE T 

10/26/67 

JDJ *B ’ 00144300 

01444 

02747 

00000000 


hlt 


PAUSE 


8/17/67 JDJ 

0011851000144400 

01445 

02750 

11102754 

V 

BRU 

LA05 

C0NTINUE 

0VERRIDE 

8/17/67 JDJ 

0011852000144500 

01446 

02751 

00000261 


DATA 

'261, • • S" , 

ii t * » 


8/17/67 JDJ 

0011853000144600 

01446 

02752 

00120323 








01446 

02753 

00120324 








01447 

02754 

03100404 

LA05 

STA 

BUFF *2 




001.4 47 Of 

01448 

02755 

11302630 


BRU* 

labp 




00 ,4400, 

01449 

02756 

01408001 

LA06 

LAA 

1*1 




00144900 

01450 

02757 

00000416 


LSL 

4 




00145000 

01451 

02760 

00000415 


RSL 

4 




00x45100 

01452 

02761 

06100366 


SMA 

SYM + 1 

2ND W0RD 

0F LABEL EQUALS 


00145200 

01453 

02762 

00000022 


SA2 


2ND W0RD 

0F TASS ITEM 


00145300 

01454 

02763 

11102735 


BRU 

LA15 

N0 



00145400 

01455 

02764 

01400001 

LA07 

LAA 

1.1 




00145500 

01456 

02765 

00000023 


SAN 





00145600 

01457 

02766 

11103046 


BRU 

LA08 




00145700 

01458 

02767 

01100174 


LAA 

10AD 




00145800 

01459 

02770 

03100141 


STA 

T3MP 




00145900 

01460 

02771 

01100175 


LAA 

data 




00146000 

01461 

02772 

03100142 


STA 

T 4MP 




00146100 

01462 

02773 

01400000 


LAA 

0,1 




00146200 

01463 

02774 

00001715 


RSL 

15 




00146300 

01464 

02775 

00001716 


LSL 

15 




00146400 

01465 

02776 

05400002 


AMA 

2.1 




00146500 
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01466 

02777 

03100175 

STA 

DATA 





00146600 

01467 

03000 

01400000 

LAA 

0,1 





00146700 

01468 

03001 

00000116 

LSL 

1 





00146800 

01469 

03002 

00001515 

RSI 

13 





00146900 

01470 

03003 

00001116 

LSL 

9 





00147000 

01471 

03004 

03100174 

STA 

L0AD 





00147100 

01472 

03005 

01100172 

LAA 

RLC 





00147200 

01473 

03006 

00000022 

SA2 






00147300 

01474 

03007 

01020000 

LAA 

*>20000 


10/26/67 

JDJ 

*8 

00147400 

01475 

03010 

05100174 

AHA 

L0AD 





00147500 

01476 

03011 

05040000 

AMA 

*>140000 


10/26/67 

JDJ 

*B 

00147600 

01477 

03012 

03100174 

STA 

L0AD 





00147700 

01478 

03013 

04100147 

STB 

TMPY 





00147800 

01479 

03014 

12102132 

SPB 

PNCH 

PUNCH 0UTPUT 

09/21/67 

JDJ 


00147900 

01480 

03015 

01000025 

LAA 

s*25 


10/26/67 

JDJ 

*B 

* 00148000 

01481 

03016 

03100015 

STA 

PRT4 

SET LISTING DELIMITER 

>2509/21/67 

JDJ 


00148100 

01482 

03017 

00130400 

SNS 

0 


RFH 



00148200 

01483 

03020 

12101614 

SPB 

LIN 

LIST A LIN 

09/21/67 

JDJ 


00148300 

01484 

03021 

01000240 

LAA 

*'240 

SPACE 

10/26/67 

JDJ 

*B 

00148400 

01485 

03022 

03100415 

STA 

BUFF +' 13 





00148500 

01486 

03023 

01000146 

LAA 

*102 


10/26/67 

JDJ 

*B 

00148600 

01487 

03024 

03100015 

STA 

PRT4 

RESET LISTING T0 102 

09/21/67 

JDJ 


00148700 

01488 

03025 

02100147 

LBA 

TMPY 





00148800 

01489 

03026 

01400003 LA99 

LAA 

3,1 





00148900 

01490 

03027 

03400000 

STA 

0,1 





00149000 

01491 

03030 

00000022 

SAZ 






00149100 

01492 

03031 

11103040 

BRU 

• ♦7 





00149200 

01493 

03032 

01100141 

LAA 

T3MP 





00149300 

01494 

03033 

03100174 

STA 

L0AD 





00149400 

01495 

03034 

01100142 

LAA 

T4MP 





00149500 

01496 

03035 

03100175 

STA 

DATA 





00149600 

01497 

03036 

02100147 

LBA 

TMPY 





00149700 

01498 

03037 

11102704 

BRU 

LA11 





00149800 

01499 

03040 

01400004 

LAA 

4,1 





00149900 

01500 

03041 

03400001 

STA 

1,1 





00150000 

01501 

03042 

01400005 

LAA 

5,1 





00150100 
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01502 

03043 

03400002 


STA 

2,1 





00150200 

01503 

03044 

16000003 


AMB 

*3 


10/26/67 

JDJ 

*B 

00150300 

01504 

03045 

11103026 


BRU 

LA99 





00150400 

01505 

03046 

01400002 

LA08 

laa 

2,1 





00150500 

01506 

03047 

15100173 


CMA 

LC 





00150600 

01507 

03050 

11103052 


BRU 

*♦2 





00150700 

01508 

03051 

11302630 


BRU* 

LABP 





00150800 

01509 

03052 

01400001 


LAA 

1,1 





00150900 

01510 

03053 

00000116 


LSL 

1 





00151000 

61511 

03054 

00000024 


SAP 






00151100 

01512 

03055 

11103061 


BRU 

LA14 





00151200 

01513 

03056 

00000020 


ASC 






• 00151300 

01514 

03057 

00000115 


RSL 

1 





00151400 

01515 

03060 

03400001 

s 

STA 

1,1 





00151500 

01516 

03061 

01000315 

LA14 

LAA 

*'315 

ERR0R C0DE M 

10/26/67 

JDJ 

*8 

00151600 

01517 

03062 

11102754 


BRU 

LA05 





00i5170 r 

01518 

03063 

15000240 

LA12 

CMA 

r *240 

SPACE 

10/26/67 

JDJ 

*B 

001518Ov 

01519 

03064 

12102330 


spb 

FWER 

N0T A SPACE 

09/21/67 

JDJ 


00.5190° 

01520 

03065 

11102663 


BRU 

LAQ3 





0015200 

01521 

03066 

11103064 


BRU 

*-2 





- 00152101 

01522 



• 







00152200 

01523 



« 







00152300 

01524 

03067 

25400000 

FDEF 

DAC 

• *- 





00152400 

01525 

03070 

00000003 

FEDS 

cla 






00152500 

01526 

03071 

03100107 


STA 

DFL 





00152600 

01527 

03072 

01100157 


laa 

IND 





00152700 

01528 

03073 

05000001 


AHA 

*1 


10/26/67 

JDJ 

• B 

00152800 

01529 

03074 

03100157 


STA 

IND 





00152900 

01530 

03075 

12107241 


SPB 

SCF 

FETCH NEXT CHARACTER 

09/21/67 

JDJ 


00153000 

01531 

03076 

03100104 


STA 

FET9 





00153100 

01532 

03077 

12107266 


SPB 

SCD 

CHECK F0R DIGIT 

09/21/67 

JDJ 


00153200 

01533 

03100 

11103117 


BRU 

FDEl 

CHARACTER IS 0-9 




00153300 

01534 

03101 

12i0726Q 


SPB 

SCL 

CHECK F0R A LETTER 

09/21/67 

JDJ 


00153400 

01535 

03102 

11103123 


BRU 

FDE2 

CHAR IS ALPHA 




00153500 

01536 

03103 

15000240 


CMA 

s' 240 

SPACE 

10/26/67 

JDJ 

«B 

00153600 

01537 

03104 

11103106 


BRU 

FED4 





00153700 
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01538 . 

03105 

11103110- 


8RU 

FED5 

• 



00153800 

01539 

03106 

03100107 

FED4 

STA 

dfl 

SAVE SPECIAL CHARACTER 



00153900 

01540 

03107 

11303067 


BRU* 

FDEF 

As* N0N-2ER0 F0R SPEC, 



00154000 

01541 

03110 

00000006 

FED5 

IAB 





00154100 

01542 

03111 

Q1100165 


IAA 

sccc 




00154200 

01543 

03112 

15000014 


CMA 

*12 


10/26/67 JDJ 

*B 

00154300 

01544 

03113 

11103115 


BRU 

• *2 




00154400 

01545 

03114 

11103070 


BRU 

FED3 




00154500 

01546 

03115 

00000006 


IAB 





00154600 

01547 

03116 

11103106 


BRU 

FED4 




00154700 

01548 

03117 

06000260 

FDE1 

SMA 

* ’ 260 

ASCII 0 

10/26/67 JDJ 

*B 

00154800 

01549 

03120 

03100103 


STA 

DIT5 

SAVE DIGIT 



00154900 

01550 

03121 

00000003 


CLA 





00155000 

01551 

03122 

11303067 


BRU* 

FDEF 

A a 0 F0R DIGIT EXIT 



00155100 

01552 

03123 

00000002 

FDE2 

NEG 





• 00155200 

01553 

03124 

11303067 


BRU* 

FDEF 

A NEG F0R ALPHA CHAR 



00155300 

01554 



******************* 


00155400 

01555 



* i/e 

1 REM0VED AND N0W 

AVAILABLE AS A SUBR0UTINE 

JPD 


00155500 

01556 



*«««»«*»»«««#««»*«*»«««««**»«**»»»««««««««*»»*»««««*#»*««»«« 


00155600 

01557 



» 






00155700 

01558 . 




01559 



* 

DATA 

PR0CESS0R 




00155900 

01560 



» 






00156000 

01561 

03125 

00000004 

DP2 

tba 





00156100 

01562 

03126 

11103170 


BRU 

DPI 




00156200 

01563 

03127 

00000005 

DALF 

TAB 





00156300 

01564 

03130 

01100157 


LAA 

IND 




00156400 

01565 

03131 

00000022 


SA2 


ADDRESS C0NSTANT 



00156500 

01566 

03132 

11103125 


BRU 

DP2 




00156600 

01567 

03133 

02100165 


lba 

SCCC 

C0LUMN COUNTER 



00156700 

01568 

03134 

16077777 


AMB 

a*l 

BACK UP BY 1 

10/26/67 JDJ 

*B 

00156000 

01569 

03135 

01100113 


LAA 

SIGN 

LEADING SIGN 



00156900 

01570 

03136 

00000024 


SAP 





00157000 

01571 

03137 

16077777 


AMB 

a-1 

BACK UP BY 1 MORE 

10/26/67 JDJ 

*B 

00157100 

01572 

03140 

04100165 


STB 

SCCC 




00157200 

01573 

03141 

01030000 


LAA 

a ' 30000 


10/26/67 JDJ 

*B 

00157300 
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01574 

03142 

03100176 


STA 

BAD 




U015740Q 

01575 

03143 

12106556 


SP8 

SCAN 

SCAN THE VARIABLE FIELD 09/21/67 

JDJ 


00157500 

01576 

03144 

03100074 


STA 

ID 




00157600 

01577 

03145 

01100162 


LAA 

SCTM 




00157700 

01578 

03146 

03100104 


STA 

FET9 




00157800 

01579 

03147 

01100165 


LAA 

SCCC 




00157900 

01580 

03150 

05077777 


AMA 

5-1 

10/26/67 

JDJ 

*B 

00158000 

01581 

03151 

03100165 


STA 

SCCC 

BACK UP C0LUMN CTr. 



00158100 

01582 

03152 

00000003 


CLA 





00158200 

01583 

03153 

11303154 


BRU» 

DIP 




00158300 

01584 

03154 

25400000 

DIP 

DAC 

«» 




00158400 

01585 

03155 

02077770 


LBA 

s - 8 

10/26/67 

JDJ 

• B 

00158500 

01586 

03156 

00000003 

V 

cla 





00158600 

01587 

03157 

03500104 


STA 

ID*8,1 

0 T0 IM,ID<3)/T2»T3,T4,T5 



00158700 

01588 

03160 

00000026 


IBS 


AND T6 



00158800 

01589 

03161 

11103157 


BRU 

#-2 




0015890 

01590 

03162 

03100110 


STA 

DITJ 




0015900c 

01591 

03163 

01077777 


LAA 

= -l 

10/26/67 

JDJ 

*B 

0C15910! 

01592 

03164 

03100157 


STA 

IND 

0 T0 FIRST CHAR INDICAT0R 



00 59201 

01593 

03165 

12103067 

DU 

SPB 

FDEF 

DEFINE TYPE 0F CHARACTER 09/21/67 

JDJ 


00L5930T 

01594 

03166 

00000024 


SAP 





00159400 

01595 

03167 

11103127 


BRU 

DALF 




00159500 

01596 

03170 

00000022 

DPI 

SAH 





00159600 

01597 

03171 

11103226 


BRU 

DI2 

CHARACTER N0T NUMERIC 



00159700 

01598 



* 






00159800 

01599 



* C0NVERT 

DIGIT T0 BINARY-TRIPLE PRECISI0N 



00159900 

01600 

03172 

14100102 


IMS 

DIT4 

T4sT4+1 



00160000 

01601 

03173 

14100110 


IMS 

DITJ 

SET TJ N0N-ZER0 



00160100 

01602 

03174 

02000002 


lba 

»2 

10/26/67 

JDJ 

• B 

00160200 

01603 

03175 

04100105 


STB 

H0LD 




00160300 

01604 

03176 

01077775 


LAA 

s-3 

10/26/67 

JDJ 

• B 

00160400 

01605 

03177 

03100112 


STA 

DIT6 




00160500 

01606 

03200 

02500074 

D 125 

LBA 

ID 1 1 

TRIPLE PREC, MPY BY 10 



00160600 

01607 



************************************************************** 


00160700 

01608 



* HARDWARE MULTIPLY 

REMOVED J PD 



0016080C 

01609 



a************************************************************* 


00160900 
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01610 

03201 

01000012 



LAA 

*10 


10/26/67 

JDJ 

*8 

00161000 

01611 

03202 

12110175 



SPB 

MTPY 





00161100 

01612 

03203 

00000006 



I AB 






00161200 

01613 

03204 

05100103 



AHA 

DIT5 





00161300 

01614 

03205 

00000006 



I AB 






00161400 

01615 

03206 

00000007 



CS8 






00161500 

01616 

03207 

05100044 



AMA 

DZR0 





00161600 

01617 

03210 

00000006 



I AB 






00161700 

01618 

03211 

04100103 



STB 

DIT5 





00161800 

01619 

03212 

02100105 



LBA 

H0LD 





00161900 

01620 

03213 

03500074 



STA 

ID 1 1 





00162000 

01621 

03214 

00000006 



I AB 






00162100 

01622 

03215 

06000001 



SMA 

*1 


10/26/67 

JDJ 

*B 

00162200 

01623 

03216 

03100105 



STA 

H0LD 

H0LD*H0LD-1 




00162300 

01624 

03217 

00000006 



I AB 





. 

00162400 

01625 

03220 

14100112 



IMS 

DIT6 





00162500 

01626 

03221 

11103200 


V 

BRU 

D125 

REPEAT 




00162600 

01627 

03222 

01100103 



LAA 

DIT5 





00162700 

01628 

03223 

00000022 



SAZ 






00162800 

01629 

03224 

11103403 



BRU 

D16 

0VERFL0W 




00162900 

01630 

03225 

11103165 



BRU 

DU 





00163000 

01631 

03226 

01100077 

D12 

LAA 

IM 





00163100 

01632 

03227 

06000005 



SMA 

*5 


10/26/67 

JDJ 

*B 

00163200 

01633 

03230 

QO0OOO22 



SAZ 


IMsREAL 




00163350 

01634 

03231 

11103405 



BRU 

D13 





00163400 

01635 











00163500 

01636 



* 

C0NSTANT ALREADY 

DEFINED AS REAL 




00163600 

01637 

03232 

01100107 



LAA 

DFl 





00163700 

01638 

03233 

00000022 



SAZ 


CHAR N0T A DELIMETER 




00163800 

01639 

03234 

11103276 



BRU 

D19 

FINISH REAL C0NVERSI0N 




00163900 

01640 



» 








00164000 

01641 




ALPHA CHARACTER 

WITHIN C0NSTANT 




00164100 

01642 

03235 

01100104 

DI 31 

LAA 

FET9 

LAST CHAR READ 




00164200 

01643 

03236 

15000306 



CMA 

*'306 

F 

10/26/67 

JDJ 

*B 

00164300 

01644 

03237 

15000301 



CMA 

*'301 

A 

10/26/67 

JDJ 

*B 

00164400 

01645 

03240 

11103403 



BRU 

DI6 

ILLEGAL CHARACTER 




00164500 
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01646 

03241 

11103403 


9RU 

D16 

ILLEGAL CHARACTER 




Ou1646Q0 

01647 

03242 

06000300 


SMA 

s*3Q0 

AT SIGN 

10/26/67 

JDJ 

«B 

00164700 

01648 

03243 

03100077 


STA 

IM 

SET PR0PER M0DE 




00164800 

01649 



ft- 







00164900 

01650 



•C0NVERT 

SCALE FACT0R 

0R EXP0NENT 




00165000 

01651 

03244 

12103067 

DI 32 

SPB 

FDEF 

DEFINE TYPE 0F CHARACTER 

09/21/67 

JDJ 


00165100 

01652 

03245 

00000022 


SAi 






00165200 

01653 

03246 

11103250 


BRU 

*♦2 





00165300 

01654 

03247 

11103264 


BRU 

D133 

DIGIT F0LL0WS ALPHA 




00165400 

01655 

03250 

01100104 


LAA 

FET9 





00165500 

01656 

03251 

06000253 


SMA 

= ♦ 253 

♦ 

10/26/67 

JDJ 

«B 

00165600' 

01657 

03252 

00000022 


SA2 






00165700 

01658 

03253 

11103255 


BRU 

**2 





' 00165800 

01659 

03254 

11103261 

\ 

BRU 

D134 

PLUS CHAR 




00165900 

01660 

03255 

06000002 


SMA 

*2 


10/26/67 

JDJ 

*B 

00166000 

01661 

03256 

00000022 


SA2 


MINUS CHAR 




00 166100 

01662 

03257 

11103276 


BRU 

D19 

FINISH REAL C0NVERSI0N 




00166200 

01663 

03260 

14100100 


IMS 

DIT2 

SET MINUS INDICAT0R 




00 66300 

01664 

03261 

12103067 

D134 

SPB 

FDEF 

DEFINE THE CHARACTER 

09/21/67 

JDJ 


00 66400 

01665 

03262 

00000022 


SA2 


DIGIT F0LL0WS SIGN 




00:6650L 

01666 

03263 

11103276 


BRU 

D19 

FINISH REAL C0NVERSI0N 




0Q16660C 

01667 

03264 

02100101 

DI 33 

LBA 

DIT3 





00166700 

01668 





00166800 

01669 



* HARDWARE MULTIPLY 

REREM0VED JPD 




00166900 

01670 

03265 

01000012 


LAA 

no 


10/26/67 

JDJ 

*B 

00167000 

01671 

03266 

12110175 


SPB 

MTPY 





00167100 

01672 

03267 

00000006 


IAB 






00167200 

01673 

03270 

05100103 


AMA 

DIT5 





00167300 

01674 

03271 

03100101 


STA 

DIT3 





00167400 

01675 

03272 

12103067 


SPB 

FDEF 

DEFINE THE CHARACTER 

09/21/67 

JDJ 


00167500 

01676 

03273 

00000022 


SA2 






00167600 

01677 

03274 

11103276 


BRU 

*♦2 





00167700 

01678 

03275 

11103264 


BRU 

D133 





00167800 

01679 



ft 







00167900 

01680 



* FINISH 

C0NVERSI0N 





00168000 

01681 

03276 

01100074 

D 19 

LAA 

ID 





00168100 
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01682 

03277 

02100075 


LBA 

ID*1 





00168200 

01683 

03300 

00000030 


0BA 






00168300 

01684 

03301 

02100076 


LBA 

ID* 2 





00168400 

01685 

03302 

00000030 


0BA 






00168500 

01686 

03303 

00000022 


SAZ 






00168600 

01687 

03304 

11103306 


BRU 

*4-2 





00168700 

01688 

03305 

11103441 


BRU 

D191 

FINISHED-CONSTANT IS 0 




00168800 

01689 

03306 

01100100 


LAA 

DIT2 





00168900 

01690 

03307 

00000022 


SA2 






00169000 

01691 

03310 

11103312 


BRU 

* + 2 





00169100 

01692 

03311 

11103315 


BRU 

DI 92 

POSITIVE SCALE OR EXP, 




00169200 

01693 

03312 

01100101 


LAA 

DIT3 





00169300 

01694 

03313 

00000002 


neg 






00169400 

01695 

03314 

03100101 


STA 

DIT3 





00169500 

01696 









♦ 

00169600 

01697 



*• HANDLE 

M0DES 0F 

conversion 




00169700 

01698 

03315 

01100077 

DI x 92 

laa 

IM 





00169800 

01699 

03316 

15000004 


CMA 

*4 


10/26/67 

JDJ 

*B 

00169900 

01700 

03317 

11103507 


BRU 

D193 

B,C 




00170000 

01701 

03320 

11103330 


BRU 

D 194 

D 




00170100 

01702 

03321 

01100074 


LAA 

ID 





00170200 

01703 

03322 

00000022 


SAZ 






00170300 

01704 

03323 

11103325 


BRU 

**2 





00170400 

01705 

03324 

11103330 


BRU 

D194 

E 




00170500 

01706 

03325 

01077777 


MLAA 


SET ODE TO DBL PREC 

10/26/67 

JDJ 

*B 

00170600 

017Q7 

03326 

05100077 


AMA 

IM 





00170700 

01708 

03327 

03100077 


STA 

IM 





00170800 

01709 

03330 

01100101 

D 1 94 

LAA 

DIT3 





00170900 

01710 

03331 

06100102 


SMA 

DIT4 





00171QQG 

017H 

03332 

03100102 


STA 

DIT4 

T4*T3-T4 




00171100 

01712 

03333 

06000114 

0ID2 

SMA 

*76 


10/26/67 

JDJ 

*B 

00171200 

01713 

03334 

00000024 


SAP 






00171300 

01714 

03335 

11103337 


BRU 

*♦2 





00171400 

01715 

03336 

11103403 


BRU 

D 16 

EXPONENT TOO LARGE 




00171500 

01716 

03337 

01000055 


LAA 

*45 


10/26/67 

JDJ 

*B 

00171600 

01717 

03340 

03100100 


STA 

DIT2 

T2 EQUALS 45 




00171700 
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01718 

03341 

12103653 

DI95 SPB 

N0RM 







u j1# - gCv 

01719 

03342 

01100102 

LAA 

DIT4 







00171900 

01720 

03343 

00000022 

SAZ 








00172000 

01721 

03344 

11103346 

BRU 

9*2 







0 172100 

01722 

03345 

11103455 

BRU 

D I 99 

FINISH C0NVERSI0N 




0 172200 

01723 

03346 

00000024 

SAP 








00172300 

01724 

03347 

11103450 

BRU 

D I 96 

NEGATIVE 

P0WER 

0F 

TEN 



00172400 

01725 

03350 

01077777 

laa 

*-l 




10/26/67 

JDJ 

«B 

00172500 

01726 

03351 

05100102 

AMA 

DIT4 







00172600 

01727 

03352“ 

03100102 

STA 

DIT4 

P0SITIVE 

P0WER 

0F 

TEN 



00172700 

01726 

03353 

01000004 

LAA 

a4 




10/26/67 

JDJ 

*B 

00172000 

01729 

03354 

05100100 

AMA 

DIT2 







. 00172900 

01730 

03355' 

03100100 

STA 

DIT2 

T-=T2+4 






00173000 

01731 

03356 

12103640 

* SPB 

RSID 

RIGHT SHIFT ID 





00173100 

01732 



9 








00173200 

01733 



9 REDUCE 

exp modifier 

T0 ZER0 AND 

UPDATE 

C0NSTAMT 



01173700 

01734 

03357 

02077775 

lba 

= •• 3 




10/26/67 

JDJ 

*B 

ori73* t 

01735 

03360 

01500077 

LAA 

ID*3 #1 

SAVE ID 






or 1735c 

01736 

03361 

03500117 

STA 

DIT7*3,1 







0 17360 

01737 

03362 

00000026 

IBS 








01 .7370 

01736 

03363 

11103360 

BRU 

#•3 







0017380' 

01739 

03364 

12103640 

SPB 

RSID 







Of17390C 

01740 

03365 

12103640 

SPB 

RSID 







00174000 

01741 

03366 

02100076 

LBA 

I D*2 







00174100 

017-42 

03367 

16100116 

AMB 

DIT7+2 







00174200 

01743 

03370 

01100075 

LAA 

ID* 1 







00174300 

01744 

03371 

00000007 

CSB 








00174400 

01745 

03372 

05100115 

AMA 

DIT7+1 







00174500 

01746 

03373 

04100076 

STB 

I D*2 







00174600 

01747 

03374 

00000005 

TAB 








00174700 

01748- 

03375 

01100074 

LAA 

ID 







00174800 

01749 

03376 

00000007 

CSB 








00174900 

01750 

03377 

05100114 

AMA 

DIT7 







00175000 

01751 

03400 

04100075 

STB 

I D*1 







00175100 

01752 

03401 

03100074 

STA 

ID 







00175200 

01753 

03402 

11103341 

BRU 

D I 95 







0017530 
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01754 

03403 

01077777 

D1 6 

LAA 

s*l 


10/26/67 

JDJ 


89173480 

01755 

03404 

11303154 


BRU* 

DIP 





99173590 

01756 

03405 

00000003 

D13 

CLA 






90173690 

01757 

03406 

03100102 


STA 

DIT4 

T4s0 




80173700 

01758 

03407 

01000005 


laa 

a5 


10/26/67 

JDJ 

•6 

00175800 

01759 

03410 

03100077 


STA 

IM 

SET IM*REAL 




80175800 

01760 

03411 

01100104 


LAA 

FET9 





00176900 

01761 

03412 

15000247 


CMA 

a*247 

AP0S 

10/26/67 

JDJ 

*e 

06176100 

01762 

03413 

11103415 


BRU 

#*2 





09176290 

01763 

03414 

11103554 


BRU 

DM 

CHARa’ 




09176900 

01764 

03415 

15000256 


CMA 

**256 

PERI0D 

10/26/67 

JDJ. 

*8 

00176400 

01765 

03416 

11103420 


BRU 

*♦2 





00176500 

01766 

03417 

11103165 


BRU 

DU 

CHARa, 




00176600 

01767 

03420 

OliOOllO 


LAA 

DITJ 





09176700 

01768 

03421 

00000022 


SA2 





• 

00176800 

01769 

03422 

11103424 


BRU 

*♦2 





00176900 

01770 

03423 

11103403 

% 

BRU 

DI6 

N0T A C0NSTANT 




00177000 

01771 

03424 

01100107 


LAA 

dfl 





00177100 

01772 

03425 

00000022 


SA2 






00177200 

01773 

03426 

11103430 


BRU 

• *2 





00177300 

01774 

03427 

11103235 


BRU 

DJ31 

N0T A DELIMITER 




00177400 

01775 

03430 

01100076 

DI7 

LULA 

ID*2 





00177500 

01776 

03431 

03100074 


STA 

ID 




- 

00177600 

01777 

03432 

00000003 


CLA 






00177700 

01778 

03433 

03100076 


STA 

JD*2 





00177800 

01779 

03434 

01000001 


LAA 

*1 


10/26/67 

JDJ 

*6 

0017790C 

01780 

03435 

03100077 


STA 

IM 





00178090 

01781 

03436 

01100113 

D18 

laa 

SIGN 





0Q1761DC 

01782 

03437 

00000024 


SAP 






00170201 

01783 

03440 

12103623 


SPB 

NEGC 





00170301 

01784 

03441 

01100165 

DI91 

laa 

SCCC 

CARD C0LUMN PBSHI0N 




00170401 

01785 

03442 

05077777 


AMA 

s-1 


10/26/67 

JDJ 


00170300 

01786 

03443 

03100165 


STA 

SCCC 

SCCC*SCCC-1 




00170600 

01787 

03444 

00000003 


CLA 






00170700 

01788 

03445 

11303154 

- 

BRU* 

DIP 





00170600 

01789 

03446 

01100102 

DID3 

LAA 

DIT4 





00170900 
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01790 

03447 

11103333 


8RU 

D 102 





001/9000 

01791 

03450 

01000001 

D 196 

LAA 

si 

NEG EXPONENT 

10/26/67 

JDJ 

*B 

OQ17910Q 

01792 

03451 

05100102 


AMA 

DIT4 





00179200 

01793 

03452 

03100102 


STA 

DIT4 





00179300 

01794 

03453 

12106165 


SPB 

DI ID 

DIVIDE ID BY 10 

09/21/67 

JDJ 


00179400 

01795 

03454 

11103341 


8RU 

D 195 





00179500 

01796 

03455 

01100100 

D 199 

LAA 

DIT2 





00179600 

01797 

03456 

00000024 


SAP 






00179700 

01798 

03457 

11103461 


8RU 

* + 2 





00179800 

•01799 

03460 

11103467 


8RU 

*♦7 





0017990JD 

01800 

03461 

04100105 


STB 

HOLD 





00180000 

01801 

03462 

02000777 


LBA 

* ' 777 


10/26/67 

JDJ 

*B 

. 00180100 

01802 

03463 

00000027 


ABA 






00180200 

01803 

03464 

03100100 

V 

STA 

DIT2 





00180300 

01804 

03465 

01100105 


LAA 

HOLD 





C 0180400 

01805 

03466 

00000002 


NEC 






G3180"'' 1 

01806 

03467 

06000377 


SMA 

* ' 3 7 7 

EXPONENT T0 LARGE 

10/26/67 

JDJ 

*B 

03180. 

01807 

03470 

00000024 


SAP 






0318070' 

01808 

03471 

11103473 


BRU 

# + 2 





0 3 18 0 8 C 

01809 

03472 

11103403 


BRU 

D 16 





0 318090 

01810 

03473 

01100113 


LAA 

SIGN 





03181000 

01811 

03474 

00000024 


SAP 






03181100 

01812 

03475 

12103623 


SPB 

NEGC 





00181200 

01813 

03476 

01100075 


LAA 

I D*1 





00181300 

01814 

03477 

02100076 


LBA 

ID * 2 





0Q18140C 

01815 

03500 

00001112 


FRA 

9 





00181500 

01816 

03501 

00001111 


LSA 

9 





00181600 

01817 

03502 

04100076 


STB 

I D*2 





00181700 

01818 

03503 

02100100 


LBA 

DIT2 





00181800 

01819 

03504 

00000030 


OB A , 






00181900 

01820 

03505 

03i00d75 


STA. 

I D*1 





00182000 

01821 

03506 

11103441 


BRU 

D I 91 

FINISHED 




00182100 

01822 



« 







0018220C 

01823 



* FIXED POINT CONVERSION 




00182300 

01824 

03507 

01000055 

DI 93 

LAA 

*45 


10/26/67 

JDJ 

*B 

00182403) 

01825 

03510 

03100100 


STA 

DIT2 





0018250 
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01826 

03511 

12103653 

D J97 

SPB 

N0RM 

01827 

03512 

01100102 


LAA 

DIT4 

01828 

03513 

00000022 


SA2 


01829 

03514 

11103516 


BRU 

*♦2 

01830 

03515 

11103522 


BRU 

D198 

01831 

03516 

06000001 


SMA 

*1 

01832 

03517 

03100102 


STA 

DIT4 

01833 

03520 

12106165 


SP,B 

DIID 

01834 

03521 

11103511 


BRU 

D197 

01835 

03522 

OllOOlOl 

D 198 

LAA 

DIT3 

01836 

03523 

06100100 


SMA 

DIT2 

01837 

03524 

00000024 


SAP 


01838 

03525 

lli03550 


BRU 

D990 

01839 

03526 

15000020 


CMA 

*16 

01840 

03527 

11103536 


BRU 

0KDP 

01841 

03530 

00000033 


N0P 


01842 

03531 

06000017 


SMA 

*15 

01843 

03532 

02100074 


LBA 

ID 

01844 

03533 

04100075 


STB 

I D*1 

01845 

03534 

02100044 


LBA 

D2R0 

01846 

03535 

04100074 


STB 

ID 

01847 

03536 

00000611 

0KDP 

LSA 

6 

01848 

03537 

02000012 


LBA 

*U2 

01849 

03540 

00000030 


0BA 


01850 

03541 

03103544 


STA 

*♦3 

01851 

03542 

01100074 


LAA 

ID 

01852 

03543 

02100075 


LBA 

ID*1 

01853 

03544 

25400000 


DAC 

** 

01854 

03545 

03100074 


STA 

ID 

01855 

03546 

04100075 


STB 

I D*1 

01856 

03547 

11103436 


BRU 

D18 

01857 

03550 

01100165 

D99Q 

LAA 

SCCC 

01858 

03551 

05077777 


AMA 

B-i 

01859 

03552 

03100165 


STA 

SCCC 

01860 

03553 

11103403 


BRU 

D16 

01861 



* 
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00182600 

00182700 

00182800 

00182900 

00183000 

10/26/67 JDJ *B 00183100 

00183200 

DIVIDE ID BY 10 09/21/67 JDJ 00183300 

00183400 

00183500 

00183600 

00183700 

00183800 

TEST F0R SNGL PRES NUM 10/26/67 JDJ «B 00183900 


TRUE D0UBLE PRECISI0N ’ 00184000 

00184100 

10/26/67 JDJ *B 00184200 

SET D0UBLE PRECISI0N CELLS 00184300 

F0R SINGLE PRECISI0N N0, 00184400 

00184500 

00184600 

P0SITI0N SHIFT C0UNT 00184700 

10/26/67 JDJ *B 00184800 


00184900 

00185000 

00185100 

00185200 

FRA XX 0018530C 

00185400 
0018550C 
0018560L 
00185700 

10/26/67 JDJ *B 00185800 

BACK UP C0LUMN C0UNTER 00185900 

00186000 

00186100 
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01862 



* PRIME 

IS FIRST 

CHARACTER-C0NVERT 

FR0M 0CTAL 




00186200 

01863 

03554 

12103067 

D 14 SPB 

FDEF 

DEFINE THE 

CHARACTER 

09/21/67 

JDJ 


00186300 

01864 

03555 

00000024 

SAP 







00186400 

01865 

03556 

11103403 

BRU 

D 16 






00186500 

01866 

03557 

00000022 

SAZ 







00186600 

01867 

03560 

11103562 

BRU 

#♦2 






00186700 

01868 

03561 

1H03577 

BRU 

DI 41 






00186800 

01869 

03562 

01100107 

IAA 

DFL 






00186900 

01870 

03563 

15000247 

CMA 

*'247 

AP0S 


10/26/67 

JDJ 

«B 

00137000 

01871 

03564 

11103566 

BRU 

*♦2 






00187100 

01872 

03565 

11103620 

BRU 

D142 

CHAR IS ' 





0018720b 

01873 

03566 

15000253 

CMA 

*'253 

PLUS 


10/26/67 

JDJ 

«B 

00187300 

01874 

03567 

11103571 

BRU 

**2 






* 00187400 

01875 

03570 

11103554 

' BRU 

DI 4 

CHAR IS ♦ 





00187500 

01876 

03571 

06000255 

SMA 

a'255 

MINUS 


10/26/67 

JDJ 

#B 

00187600 

01877 

03572 

00000022 

SAZ 







0G187700 

01878 

03573 

11103403 

BRU 

DI 6 






00187600 

01879 

03574 

01077665 

LAA 

* - 75 

CHAR IS 


10/26/67 

JDJ 

*B 

00187900 

01880 

03575 

03100113 

STA 

SIGN 






00188000 

01881 

03576 

12103067 

SPB 

FDEF 

DEFINE THE 

CHARACTER 

09/21/67 

JDJ 


00188101 

01882 

03577 

01100103 

D I 41 LAA 

DIT5 






00188200 

01883 

03600 

06000010 

SMA 

3 » 10 



10/26/67 

JDJ 


00188300 

01884 

03601 

00000023 

SAN 







00188400 

01885 

03602 

11103403 

BRU 

D16 






00188500 

01886 

03603 

00000003 

CLA 







00188600 

01887 

03604 

02100076 

lba 

I D + 2 






00188700 

01888 

03605 

00000313 

FLL 

3 






00188800 

01889 

03606 

00000022 

SAZ 







00188900 

01890 

03607 

11103403 

BRU 

D16 






00189000 

01891 

03610 

00000006 

I AB 







00189100 

01892 

03611 

02100103 

lba 

DIT5 






00189200 

01893 

03612 

00000030 

0BA 







00189300 

01894 

03613 

03100076 

STA 

\D*2 






00189400 

01895 

03614 

12103067 

SPB 

FDEF 

DEFINE THE 

character 

09/21/67 

JDJ 


00189500 

01896 

03615 

00000022 

SAZ 







00189600 

01897 

03616 

11103430 

BRU 

D I 7 






00189700 
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01898 

03617 

11103577 


BRU 

D141 


00189800 

01899 

03620 

00000003 

D142 

CIA 



00189900 

01900 

03621 

Q3i00077 


STA 

IM 


00190000 

01901 

03622 

11110076 


BRU 

STRA 

RETURN T0 DATA PR0CESS0R 09/21/67 JDJ 

00190100 

01902 



• - 


DOUBLE 

PRECISION NEGATE C0NTENTS 0F ID# ID*1, ID*2 

00190200 

01903 

03623 

25400000 

NEGC 

OAC 

• * 


00190300 

01904 

03624 

00000003 


CLA 



00190400 

01905 

03625 

03100113 


STA 

SIGN 


00190500 

01906 

03626 

00000005 


TAB 


CLEAR SIGN 0F B 

00190600 

01907 

03627 

06100076 


SMA 

I D*2 

0 - L0W 0RDER BITS 

00190700 

01908 

03630 

00001712 


fra 

15 

DRAG SIGN 

00190800 

01909 

03631 

04100076 


STB 

I D*2 


00190900 

01910 

03632 

06100075 


SMA 

I D*1 


00191000 

01911 

03633 

00001712 


FRA 

15 


00191100 

01912 

03634 

04100075 


STB 

I D*1 


. 00191200 

01913 

03635 

06i00074 


SMA 

ID 


00191300 

01914 

03636 

03100074 

S 

STA 

ID 


00191400 

01915 

03637 

11303623 


BRU* 

NEGC 


00191500 

01916 

03640 

25400000 

RSID 

DAC 

»« 

RIGHT SHIFT ID BY 0NE 

00191600 

01917 

03641 

02100076 


LBA 

I D*2 


00191700 

01918 

03642 

0H00075 


LAA 

I D*i 


00191800 

01919 

03643 

00000112 


FRA 

1 


00191900 

01920 

03644 

04100076 


STB 

I D*2 


00192000 

01921 

03645 

02100075 


lba 

I D*1 


00192100 

01922 

03646 

01100074 


LAA 

ID 


00192200 

01923 

03647 

00000112 


FRA 

1 


00192300 

01924 

03650 

04100075 


STB 

ID*1 


00192400 

01925 

03651 

03100074 


STA 

ID 


00192500 

01926 

03652 

11303640 


BRU* 

RSID 


0019260C 

01927 

03653 

25400000 

N0RM 

DAC 

*#• 


00192700 

01928 

03654 

01100074 


LAA 

ID 


00192800 

01929 

03655 

00000116 


LSL 

1 


00192900 

01930 

03656 

00000024 


SAP 



00193000 

01931 

03657 

11303653 


BRU* 

N0RM 


00193100 

01932 

03660 

01077777 


LAA 

■ -1 

10/26/67 JDJ *B 

00193200 

01933 

03661 

05100100 


AMA 

DIT2 


00193300 
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01934 

03662 

03100100 


STA 

DIT2 





0U193400 

01935 

03663 

12103665 


SPB 

LSID 





00193500 

01936 

03664 

11103654 


BRU 

N0RM + 1 





00193600 

01937 

03665 

25400000 

LSID 

DAC 

»« 

SHIFT LEFT 1 PLACE 



00193700 

01938 

03666 

02100075 


LBA 

I D*1 





00193800 

01939 

03667 

00000113 


FLU 

1 





00193900 

01940 

03670 

01100074 


LAA 

ID 




__ 

^01^4000 

01941 

03671 

00000113 


FLL 

1 




_ , - 

00194100 

01942 

03672 

03100074 


STA 

ID 





00194200 

01943 

03673 

00000003 


CLA 






00194300 , 

01944 

03674 

02100076 


LBA 

I D*2 





00194400 

01945 

03675 

OOOO0117 


FLA 

1 




» 

00194500 

01946 

03676 

04100076 


STB 

I D*2 





00194600 

01947 

03677 

00000005 

V 

TAB 






00194700 

01948 

03700 

01100075 


LAA 

I D*1 





00194800 

01949 

03701 

00000216 


LSL 

2 





0019490" 

01950 

03702 

00000115 


RSL 

1 





0019500. 

01951 

03703 

OO0O0O3O 


0BA 






00,95100 

01952 

03704 

03100075 


STA 

I D*1 





0019520C 

01953 

03705 

11303665 


BRU* 

LSID 





00195301 

01954 



« 

SENSE SWITCH 

R0UTINE 



00195400 

01955 



ft 







00195500 

01956 

03706 

25400000 

ssss 

DAC 

0 

ft 

SENSE SWITCH R0UTINE 



00195600 

01957 

03707 

03103722 


STA 

SSSA 

« 




00195700 

01958 

03710 

01303706 


LAA* 

SSSS 

ft 

SPB SSSS 



00195800 

01959 

03711 

05000016 


AHA 

s»16 



10/26/67 

JD J *B 

00195900 

01960 

03712 

03103714 


STA 

*♦2 

* 




00196000 

01961 

03713 

00000031 


LCS 


ft 




00196100 

01962 

03714 

00000033 


N0P 


ft 

SHIFT INSTRUCTI0N 



00196200 

01963 

03715 

00000023 


SAN 






00196300 

01964 

03716 

14103706 


IMS 

SSSS 

ft 




00196400 

01965 

03717 

01103722 


LAA 

SSSA 

ft 




00196500 

01966 

03720 

14103706 


IMS 

SSSS 

ft 




00196600 

01967 

03721 

11303706 


BRU* 

SSSS 

ft 




00196700 

01968 

03722 

00000000 

SSSA 

DATA 

0 





00196800 

01969 



* END 0F 

MACR0 PR0T0TYPE 

IS IN ERR0R HERE 

10/16/67 

JD J *B 

00196900 
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D44004E 


01970 

Q3723 

11101021 

EMAC 

BRU 

0P3O 

01971 



* MACR0 PR0CESSING 

01972 






01973 



* SUBROUTINE DCTY, 

01974 

03724 

25400000 

DCTY 

DAC 

0 

01975 

03725 

01000005 


laa 

s5 

01976 

03726 

03100165 


STA 

sccc 

01977 

03727 

00000003 


cla 


01978 

03730 

03112041 


STA 

W0RK 

01979 

03731 

12107241 


SPB 

SCF 

01980 

03732 

02077770 


LBA 

5-8 

01981 

03733 

15512115 

DCT2 

CMA 

TYPE+8,1 

01982 

03734 

11103736 


BRU 

**2 

019&3 

03735 

11103743 


BRU 

DCTl 

01984 

03736 

14112041 


IMS 

W0RK 

01985 

03737 

00000026 


IBS 


01986 

03740 

11103733 

\ 

BRU 

DCT2 

01987 

03741 

01000002 


LAA 

5*2 

01988 

03742 

11103745 


BRU 

# + 3 

01989 

03743 

31112041 

DCTl 

LAA 

WORK 

01990 

03744 

00000516 


LSI- 

5 

01991 

03745 

12 i 0 37 4 7 


SPB 

GCTL 

01992 

03746 

11303724 


BRU* 

DCTY 

01993 



a 



01994 



• SUBROUTINE GCTL, 

01995 

03747 

25400000 

GCTL 

DAC 

0 

01996 

03750 

02104405 


LBA 

CT AD 

01997 

03751 

02400000 


LBA 

0,1 

01998 

03752 

00000030 


0BA 


01999 

03753 

02104405 


LBA 

CTAD 

02000 

03754 

03400000 


STA 

0,1 

02001 

03755 

11303747 


BRU* 

GCTL 

02002 



* SUBROUTINE STDS, 

02003 

03756 

25400000 

STDS 

DAC 

0 

02004 

03757 

02104404 


LBA 

PDAD 

02005 

03760 

04104405 


STB 

CTAD 


T0 
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. ERR0R WHEN F0UND HER0 10/16/67 
ITEM BEGINS HERE 10/16/67 


nEC0DE THE TYPE FIELD 10/23/67 

ENTER SUBR0UTINE 10/23/67 

SET SCF SCAN P0INTER 10/23/67 

T0 C0L 5 10/23/67 

SET TEMP C0UNTER 10/23/67 

T0 2ER0i TYPE C0DE F0UND 10/23/67 
G0 GET C0L 5 USING SCF 10/23/67 
SET TABLE SCANNER T0 MAX 10/23/67 
TEST F0R A VALID TYPE 
N0T F0-UND 10/23/67 

G0 GENERATE CTL W0RD 10/23/67 

INCREMENT C0UNTER 10/23/67 

INCREMENT INDEX T0 2ER0 10/23/67 
G0 SEARCH S0ME M0RE TABLE 10/23/67 


ERR0R BIT 14 0F CTL W0RD 
G0 MERGE BIT T0 CTL 
L0AD TYPE C0DE 
SHIFT TYPE C0DE T0 6-10 
MERGE A INT0 CTL W0RD 
EXIT FR0M SUBR0UTINE 

MERGE A WITH THfc Cv, prENT CT 
ENTER SUBR0UTINE 
GET CTL WD ADDRESS 
GET CTL W0RD DATA 
MERGE A WITH CTL W0RD 
REST0RE INDEX 
REST0RE CTL WITH NEW BITS 
EXIT FR0M SUBR0UTINE 

PACK DETAIL LINE 
ENTER SUBR0UTINE 
GET BEG ADR 0F LIND 
M0VE T0 CTL ADR AS NEEDED 


D 10/23/67 
10/23/67 
10/23/67 
10/23/67 
11/28/67 
10/23/67 
10/23/67 
CTL10/24/67 
10/24/67 

i0/24fw/ 
10/24/67 
10/24/67 
10/24/67 
TS 10/24/67 
10/24/67 
•10/24/67 
10/24/67 
10/24/67 
ED 10/24/67 


JDJ 

*B 

00197001 

JDJ 

*8 

00197101 

00197201 

JDJ 


Q019730( 

JDJ 

• B 

0019740( 

JDJ 

»B 

0019750( 

JDJ 

*B 

0019760( 

JDJ 


0019770C 

JDJ 

«B 

0Q19780C 

JDJ 

• B 

00197901 

JDJ 

»B 

0019800C 

0019810C 

JDJ 

• B 

0019820C 

JDJ 

• B 

0019830C 

JDJ 

«B 

0019840C 

JDJ 

*6 

0019850C 

JDJ 

•B 

0019860C 

JDJ 

«B 

0019870C 

JDJ 

«B 

0019880C 

JDJ 

»B 

0019890C 

JDJ 

»B 

00199001 

JDJ 

*B 

00199101 

JDJ 

*B 

00199201 

JDJ 

*B 

0019930( 

JDJ 

*B 

0019940( 

JDJ 

#8 

00199501 

JDJ 

*B 

00199601 

•n J 

~ *B 

00199701 


- * "Oqh; 

JDJ 

#5 


JDJ 

*B 

OO19990C 

JDJ 

• B 

00200001 

JDJ 

*B 

00200101 

JDJ 

*B 

00200201 

JDJ 

#B 

00200301 

JDJ 

• B 

00200401 

JDJ 

*B 

00200501 


810A/B MACR0 


-ASM 1 


HBLER 


02006 03761 

02007 03762 

02008 03763 

02009 03764 

02010 03765 

02011 03766 

02012 03767 

02013 03770 

02014 03771 

02015 03772 

02016 03773 

02017 03774 

02018 03775 

02019 03776 

02020 03777 

02021 04000 

02022 04001 

02023 04002 

02024 . 04003 
02025 04004 

02026 04005 

02027 04006 

02028 04007 

02029 04010 

02030 04011 

02031 04012 

02032 04013 

02033 04014 

02034 04015 

02035 04016 

02036 04017 

02037 04020 

02038 04021 

02039 04022 

02040 04023 

02041 04024 


141^404 
000fJ|0 03 
034«|000 
OiOfgOOl 
03lCJ|l65 
1210241 
1508*|252 
11103772 
11104044 
1506^240 
11103775 
lli0$003 
121041057 
Qli0-|570 
00009316 
05100571 
00003416 
12103747 
12103724 STD2 
0100«011 
0310.0165 
1210.2241 
15003252 
illO#012 
1110*0 35 
01006006 STD5 
03lo;©165 
12i9;i241 
1500(1240 
111 ffiiO 2 0 
1110|O26 
12103057 
01181570 
000$6316 
05lMj571 
00091016 
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IMS 

PDAD 

SET PACKER T0 NEXT W0RD 

11/14/67 

JDJ 

*B 

00200600 

CLA 


2ER0 A 

10/24/67 

JDJ 

• B 

00200700 

STA 

0.1 

CLEAR CTL W0RD 

10/24/67 

JDJ 

*B 

00200800 

LAA 

si 

SET SCF T0 C0L 1 

10/24/67 

JDJ 

• B 

00200900 

STA 

sccc 

SET SCF P0INTER T0 C0L 1 

10/24/67 

JDJ 

«B 

00201000 

SPB 

SCF 

GET C0LUMN 1 

10/24/67 

JDJ 

«B 

002Q1100 

CMA 

s * 252 

TEST F0R AN ASTRISK 

10/24/67 

JDJ 

*B 

00201200 

BRU 

#♦2 

N0» C0NTINUE 

10/24/67 

JDJ 

«B 

00201300 

BRU 

STD1 

G0 PACK A C0MMENT CARD 

10/24/67 

JDJ 

»B 

00201400 

CMA 

*4 240 

TEST F0R A SPACE IN C0L 1 

10/24/67 

JDJ 

«B 

00201500 

BRU 

*♦2 

N0. C0NTINUE 

10/24/67 

JDJ 

*B 

00201600 

BRU 

STD2 

YES. G0 DEC0DE C0L 5 

10/24/67 

JDJ 

*B • 

00201700 

SPB 

PFXF 

DEC0DE AND PACK L0CATI0N 

10/24/67 

JDJ 

«B 

00201800 

LAA 

PAFD 

PRES 0R ABS 0F FIELD 

10/24/67 

JDJ 

«B 

00201900 

LSL 

3 

P0SITI0N MERGE IN LENGTH 

10/24/67 

JDJ 

• B 

OH202000 

AMA 

ledp 

ADD IN LENGTH 

10/24/67 

JDJ 

«B 

0 C 2 0 210 C 

LSL 

12 

P0SITI0N T0 BITS 0.1-3 

10/24/67 

JDJ 

«8 

0 ! 202200 

SPB 

GCTL 

MERGE WITH CTL W0RD 

10/24/67 

JDJ 

#8 

0 702300 

SPB 

DCTY 

DEC0DE C0L 5 

11/07/67 

JDJ 


Oi 70240 ' 

LAA 

s9 

C0LUMN 9 

10/24/67 

JDJ 

*B 

. 00202500 

STA 

SCCC 

SET SCF T0 C0L 9 INDIRECT 

10/24/67 

JDJ 


00202600 

SPB 

SCF 

G0 GET A CHARACTER 

10/24/67 

JDJ 

*B 

00202700 

CMA 

s 1 252 

TEST F0R ASTERISK 

10/24/67 

JDJ 

*B 

00202800 

BRU 

• *2 

N0 C0NTINUE 

10/24/67 

JDJ 

#B 

00202900 

BRU 

STD3 

G0 MERGE AS INDIRECT CLR 

10/24/67 

JDJ 

#B 

00203000 

LAA 

s6 

SET SCF T0 C0L 6 

10/24/67 

JDJ 

»B 

00203100 

STA 

SCCC 

T0 GET 0P C0DE 

11/14/67 

JDJ 

• B 

00203200 

SPB 

SCF 

GET NEXT CHAR 

10/24/67 

JDJ 

*B 

00203300 

CMA 

s ' 2 4 0 

TEST F0R A SPACE 

10/24/67 

JDJ 

*B 

00203400 

BRU 

• *2 

N0 CONTINUE 

10/24/67 

JDJ 

«B 

00203500 

BRU 

STD4 

YES G0 PACK VAR FIELD 

10/24/67 

JDJ 

«B 

00203600 

SPB 

PFXF 

G0 PACK 0P C0DE FIELD 

10/24/67 

JDJ 

*8 

00203700 

LAA 

PAFD 

GET PRESENTS 

10/24/67 

JDJ 

«B 

00203600 

LSL 

3 

SHIFT T0 P0SITI0N 

10/24/67 

JDJ 

*B 

00203900 

AMA 

LEDP 

ADD IN LENGTH 

10/24/67 

JDJ 

«B 

00204000 

LSL 

8 

P0SITI0N T0 BITS 4, 5-7 

10/24/67 

JDJ 

«B 

0020410L 
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02042 

04025 

12103747 


SPB 

GCTL 

MERGE WITH C0NTR0L W0RD 

10/24/67 

JDJ 

*B 

002t 

02043 

04026 

01000013 

STD4 

LAA 

■•11 

SET P0INTER T0 C®L 11 

10/24/67 

JDJ 

#B 

0 020 -I 

02044 

04027 

03100165 


STA 

SCCC 

SET SCF T0 GET C0L 11 

11/18/67 

JDJ 

*B 

00204* 

02045 

04030 

12104301 


SPB 

PVFD 

G0 PACK THE VARIABLE FLO 

10/24/67 

JDJ 

• 8 

00204t . 

02046 

04031 

14100562 

STD6 

IMS 

PDSW 

TURN 0N THE PAD INDICAT0R 

10/24/67 

JDJ 


002046 

02047 

04032 

01000076 


laa 

s * 76 

E0D C0DE 

10/24/67 

JDJ 

«B 

002047 

02048 

04033 

12104162 


SPB 

PACK 

PAD AND PACK THE LINE 

10/24/67 

JDJ 

«3 

002048 

02049 

04034 

11303756 


BRU# 

STDS 

EXIT FR0M SUBR0UTINE 

10/24/67 

JDJ 

*B 

002049C 

02050 

04035 

02100165 

STD3 

LB A 

SCCC 

GET SCCC L0CATI0N 

10/24/67 

JDJ 

«B 

00205000 

02051 

04036 

16077777 


AMB 

*-l 

DECREMENT BACK T0 C0L 9 

10/24/67 

JDJ 

«B 

0U205101) 

02052 

04037 

01000240 


LAA 

• ’240 

SET CHAR T0 SPACE 

10/24/67 

JDJ 


002052' ? 

02053 

04040 

03500416 


STA 

BUF+12,1 

RESET T0 SPACE 

10/24/67 

JDJ 

«B 

00205300 

02054 

04041 

01000004 


LAA 

s ’ 4 

SET INDIRECT BIT 13 

10/24/67 

JDJ 

• B 

00205400 

02055 

04042 

12103747 


SPB 

GCTL 

MERGE T0 CURRENT CTL W0RD 

10/24/67 

JDJ 


00205500 

02056 

040*3 

11104012 


BRU 

STD5 

RETURN T0 EXAMINE 0P C0DE 

10/24/67 

JDJ 

«B 

’ 00205600 

02057 

04044 

01000010 

STH1 

LAA 

• ’10 

C0MMENT BIT 12 

10/24/67 

JDJ 

*B 

00205700 

02058 

04045 

12103747 


SPB 

GCTL 

MERGE INT0 CTL W0rD 

10/24/67 

JDJ 

«B 

00205800 

02059 

04046 

01077747 


LAA 

■ •25 

PACK IN 25 CHARACTERS 

10/24/67 

JDJ 

#B 

00205900 

02060 

04Q47 

03100575 


STA 

STCP 

SET L00P C0UNTER 

10/24/67 

JDJ 

• B 

00206000 

02061 

04050 

01000252 


LAA 

*’252 

SET A T0 AN ASTRISK FIRST 

10/24/67 

JDJ 

• B 

00206100 

02062 

04051 

11104053 


BRU 

*♦2 

GET STARTED INT0 L00P 

10/24/67 

JDJ 

#B 

00206200 

02063 

04052 

12107241 


SPB 

SCF 

GET A CHARACTER 

10/24/67 

JDJ 

»B 

00206300 

02064 

04053 

12104162 


SPB 

PACK 

PACK A CHARACTER 

10/24/67 

JDJ 

• B 

•00206400 

02065 

04054 

14100575 


IMS 

STCP 

INCREMENT C0UNTER 

10/24/67 

JDJ 

*B 

00206500 

02066 

04055 

1H04052 


BRU 

*•3 

L00P F0R 25 CYCLES 

10/24/67 

JDJ 

*B 

00206600 

02067 

04056 

11104031 


BRU 

STD6 

FINISHED PACKING C0MMENTS 

10/24/67 

JDJ 

»B 

00206700 

02068 



« 




10/25/67 

JDJ 

oB 

00206800 

02069 



» 




10/24/67 

JDJ 


00206900 

02070 



* SUBR0UTINE PFXF, 

T0 PACK A FIXED FIELD INT0 MEM 

10/24/67 

JDJ 

*B 

00207000 

02071 

04057 

25400000 

PFXF 

DAC 

0 

ENTER SUBR0UTINE 

11/07/67 

JDJ 

• B 

00207100 

02072 

04060 

02000000 


LBA 

• 0 

CLEAR SEVERAL INDICAT0RS 

10/24/67 

JDJ 

• B 

00207200 

02073 

04061 

04100572 


STB 

PFCT 

CHARS READ BY PFXF 

10/24/67 

JDJ 

»B 

00207300 

02074 

04062 

04100571 


STB 

LEDP 

L0CATI0NS PACKED BY PFXF 

10/24/67 

JDJ 

»B 

00207400 

02075 

04063 

04i00570 


STB 

PAFD 

P-A CTL W0RD F0R PRESENTS 

10/24/67 

JDJ 

«B 

00207500 

02076 

04064 

14100572 

PXF1 

IMS 

PFCT 

INCREMENT CHARS READ SCF 

10/24/67 

JDJ 

#B 

00207600 

02077 

04065 

00000005 


TAB 


SAVE A IN B 

10/24/67 

JDJ 


00207700 
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02078 

04066 

01100572 


LAA 

PFCT 

GET CHARS READ 

10/24/67 

JDJ 

*B 

n0207800 

02079 

04067 

15104161 


CMA 

PFCM 

CHARS MAX, N0RMALLY 4 

10/24/67 

JDJ 

*B 

00207900 

02080 

04070 

00000033 


N0P 


N0 

10/24/67 

JDJ 

• B 

00208000 

02081 

04071 

11104103 


BRU 

PXF2 

N0, C0NTINUE T0 READ 

10/24/67 

JDJ 

• B 

00208100 

02082 

04072 

01100571 

PXF5 

LAA 

ledp 

GET NUMBER 0F CHARS PACKD 

10/24/67 

JDJ 

*8 

00208200 

02083 

04073 

00000022 


SAZ 


TEST F0R ZER0 PACKED 

10/24/67 

JDJ 

*B 

00208300 

02084 

04074 

11104076 


BRU 

#*2 

N0, THEN SET FIELD PRESENT10/24/67 

JDJ 

*B 

00208400 

02085 

04075 

11104100 


BRU 

PXF3 

YES LEAVE FIELD ABSENT 

10/24/67 

JDJ 

*B 

00208500 

02086 

04076 

01000001 


LAA 

*1 

1* PRESET 

10/24/67 

JDJ 

*B 

00208600 

02087 

04077 

03100570 

- 

STA 

PAFD 

SET T0 YES A FIELD F0UND 

10/24/67 

JDJ 

*B 

002Q8700 

02088 

04100 

01000004 

PXF3 

LAA 

s4 

RESET NUM T0 SCAN AS 4 

11/07/67 

JDJ 

*B 

00208800 

02089 

04101 

03104161 


STA 

PFCM 

RESET SCAN NUMBER 

10/24/67 

JDJ 

• B . 

00208900 

02090 

04102 

11304057 


BRU* 

PFXF 

EXIT FR0M SUBR0UT1NE 

10/24/67 

JDJ 

*B 

00209000 

02091 

04103 

00000004 

PXF2 

TBA 


REST0RE A SAVED IN 8 

10/24/67 

JDJ 

• B 

00209100 

02092 

04104 

15104657 

PXF8 

CMA 

psgn 

USER LIST C0DE PND SIGN 

10/24/67 

JDJ 

«B 

QC209200 

02093 

04105 

11104107 


BRU 

*♦2 

N0-C0NTIN(JE L00KING 

10/24/67 

JDJ 

«B 

0020930" 

02094 

04106 

11104127 


BRU 

PXF4 

YES-PR0CESS AS MACR0 SYMB 

10/24/67 

JDJ 

*B 

00209401 

02095 



- 

* • • ■ * 

• * -• * 

- * . « - » - « » « -•* - * - # 

-*-■*• 

» - * 

*D 

00'’09500 

02096 



* 



TEST F0R C0NDITI0NAL ASSEMBLY SYMB0LS 

*D 

00 20960 1 

02097 

04107 

15104661 


CMA 

ASBL 

S * 274 9 



*D 

00209701 

02098 

04110 

11104112 


BRU 

* + 2 

N0T * 




00209800 

02099 

04111 

11104127 


BRU 

PXF4 

s 




00209900 

02100 

04112 

15104662 


CMA 

DSBL 

*’276 9 



*D 

00210000 

02101 

04113 

11104115 


BRU 

*♦2 

N0T » 



*D 

00210100 

02102 

04114 

11104127 


BRU 

PXF4 

• B 



*D 

00210200 

02103 



« • 

# • 

- # - * 

- e - « « » - • - * 

. *-# - 

0 » # 

*D 

00210300 

02104 

04115 

15104660 


CMA 

ATSN 

INTERNAL AT SIGN LAVEL 

10/24/67 

JDJ 

*B 

00210400 

02105 

04116 

11104120 


&RU 

*♦2 

N0, TRY F0R SPACE 

10/24/67 

JDJ 

*B 

00210500 

02106 

04117 

11104127 


BRU 

PXF4 

YES, PR0CESS AS MACR0 SYMB10/24/67 

JDJ 

*B 

00210600 

02107 

04120 

15000240 


CMA 

a*240 

SPACE 

10/24/67 

JDJ 

«B 

00210700 

02108 

04121 

11104123 


BRU 

*♦2 

N0, C0NTINUE AS N0RMAL CHR10/24/67 

JDJ 

• B 

00210800 

02109 

04122 

11104072 


BRU 

PXF5 

YES, MUST BE END 0F FIELD 

10/24/67 

JDJ 

*8 

00210900 

02110 

04123 

12104162 


SPB 

PACK 

PACK THE CHAR INT MEM 

10/24/67 

JDJ 

«B 

00211000 

02111 

04124 

14100571 


IMS 

ledp 

INCREMENT CHARS PACKED 

10/24/67 

JDJ 

*B 

00211100 

02112 

04125 

12107241 


SPB 

SCF 

GET AN0THER CHAR IN STRNG 

10/24/67 

JDJ 

*B 

00211200 

02113 

04126 

11104064 


BRU 

PXF1 

G0 PR0CESS NEXT CHAR EXAM 

10/24/67 

JDJ 

*B 

00211300 
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02114 

04127 

12104162 

PXF4 

SPB 

PACK 

PACK THE CHAR IN MEM 

10/24/67 

JDJ 

*B 

00211400 

02115 

04130 

00000003 


CLA 


SET T0 CLEAR 

10/24/67 

JDJ 

• B 

00211500 

02116 

04131 

03100542 


STA 

P4BD 

RCD ACCUM FIELD 

10/24/67 

JDJ 

«B 

00211600 

02117 

04132 

14100571 


IMS 

LEDP 

INCREMENT CHARS PACKED 

10/24/67 

JDJ 

*B 

00211700 

02118 

04133 

i4100572 

PXF 6 

IMS 

PFCT 

INCREMENT CHARS READ 

10/24/67 

JDJ 

*R 

00211800 

02119 

04134 

01100572 


LA A 

PFCT 

GET CHAR C0UNT 

10/24/67 

JDJ 


00211900 

02120 

04135 

15104161 


CM A 

PFCM 

CHAR READ VS MAX 

10/24/67 

JDJ 

*B 

00212000 

02121 

04136 

00000033 


N0P 



10/24/67 

JDJ 

• B 

00212100 

02122 

04137 

11104144 


8RU 

PXF7 

N0, GET AN0THER CHAR 

10/24/67 

JDJ 

*B 

00212200 

02123 

04140 

01100606 


LA'A 

pbin 

0VER, GET ACUMBIN VALUE 

10/24/67 

JDJ 

*B 

00212300 

02124 

04141 

12104162 


SPB 

PACK 

PACK THE BINARY LENGTH 

10/24/67 

JDJ 

#8 

00212400 

02125 

04142 

14100571 


IMS 

LEDP 

INCREMENT DATA CHAR PACKD 

10/24/67 

JDJ 

*B 

00212500 

02126 

04143 

11104072 


BRU 

PXF5 

G0 TEST L0CATI0NS PACKED 

10/24/67 

JDJ 


00212600 

02127 

04144 

12107241 

PXF7 

SPB 

SCF 

GET NEX CHAR 

10/24/67 

JDJ 

*8 

00212700 

02128 

04145 

12107266 


SPB 

SCD 

TEST F0R NUMERIC 

10/24/67 

JDJ 

«B • 

00 n ' 1 P800 

02129 

04146 

11104150 


BRU 

» + 2 

YES IT IS A DIGIT 

10/24/67 

JDJ 

*8 

00 

02130 

04147 

11104153 


BRU 

PXF9 

N0 IT IS N0T A DIGIT 

10/24/67 

JDJ 

*8 

0021 

02131 

04150 

12104252 


SPB 

PBCD 

PACK DIGIT INT0 4 BITS 

10/24/67 

JDJ 

»B 

0 0?: iu 

02132 

04151 

12104261 


SPB 

MDBN 

C0NVERT ACCUM DEC T0 BIN 

10/24/67 

JDJ 

• B 

002132? 

02133 

04152 

11104133 


BRU 

PXF6 

G0 CYCLE F0R AN0THER CHAR 

10/24/67 

JDJ 

• 8 

002133? 

02134 

04153 

03100573 

PXF9 

STA 

PXWK 

TEMP W0RK 

10/24/67 

JDJ 

*8 

0021340* 

02135 

04154 

01100606 


LAA 

PBIN 

GET BINARY VALUE 

10/24/67 

JDJ 

*B 

00213500 

02136 

04155 

12104162 


SPB 

PACK 

PACK BINARY SIZE INT0 MEM 

10/24/67 

JDJ 

»B 

. 00213600 

02137 

04156 

14100571 


IMS 

LEDP 

INCR DATA PACKED 

11/14/67 

JDJ 

*8 

00213700 

02138 

04157 

01100573 


LAA 

PXWK 

GET SAVED CHAR 

10/24/67 

JDJ 

#8 

00213800 

02139 

04160 

11104104 


BRU 

PXF8 

G0 TEST THE TYPE 0F CHAR 

10/24/67 

JDJ 

• 8 

00213900 

02140 

04161 

00000004 

PFCM 

DATA 

4 

MAXIMUM CHAR T0 READ PFXF 

10/24/67 

JDJ 

*B 

00214000 

02141 



« 




10/24/67 

JDJ 

• B 

00214100 

02142 



« 




10/23/67 

JDJ 

#8 

00214200 

02143 



* SUBR0UTINE PACK, 

T0 ST0RE ELEMENTS 0F PR0T0S 

10/23/67 

JDJ 

«B 

00214300 

02144 

04162 

25400000 

PACK 

D-AC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

*8 

00214400 

02145 

04163 

03112041 


STA 

W0RK 

SAVE A IN TEMP W0RK 

10/23/67 

JDJ 

«B 

00214500 

02146 

04164 

00000005 

PAK5 

TAB 


M0VE CHAR T0 B 

10/23/67 

JDJ 

*B 

00214600 

02147 

04165 

01100561 


LAA 

PFWD 

GET PACKING IND 

10/23/67 

JDJ 

*8 

00214700 

02148 

04166 

00000024 


SAP 


0»EMPTY NEXT W0RD 

10/23/67 

JDJ 


00214800 

02149 

04167 

11104215 


BRU 

PAK1 

-1*FULL W0RD 

10/23/67 

JDJ 

»B 

00214900 
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02150 

04170 

00000004 


TBA 


02151 

04171 

00001016 


LSL 

8 

02152 

04172 

03100563 


STA 

HFUL 

02153 

04173 

01077777 


LAA 

*-l 

02154 

04174 

03100561 


STA 

PFWD 

02155 

04175 

01000001 

PAK6 

LAA 

*1 

02156 

04176 

15100562 


CMA 

PDSW 

02157 

04177 

11104203 


BRU 

PAK2 

02158 

04200 

11104207 


BRU 

PAK3 

02159 

04201 

01112041 

PAK4 

LAA 

W0RK 

02160 

04202 

11304162 


BRU* 

PACK 

02161 

04203 

00000003 

PAK2 

CLA 


02162 

04204 

03100562 

V 

STA 

PDSW 

02163 

04205 

03100561 


STA 

PFWD 

02164 

04206 

11104201 


BRU 

PAK4 

02165 

04207 

14100562 

PAK3 

IMS 

PDSW 

02166 

04210 

01100561 


LAA 

PFWD 

02167 

04211 

00000023 


SAN 


02168 

04212 

11104203 


BRU 

PAK2 

02169 

04213 

01000240 


LAA 

s * 240 

02170 

04214 

1H04164 


BRU 

PAK5 

02171 

04215 

00000003 

PAK1 

CLA 


02172 

04216 

03100561 


STA 

PFWD 

02173 

04217 

01100563 


LAA 

HFUL 

02174 

04220 

00000030 


0BA 


02175 

04221 

02104404 


LBA 

PDAD 

02176 

04222 

03400000 


STA 

0,1 

02177 

04223 

14104404 


IMS 

PDAD 

02178 

04224 

00000004 


TBA 


02179 

04225 

15112040 


CMA 

PMAX 

02180 

04226 

11104175 


BRU 

PAK6 

02181 

04227 

00000033 


N0P 


02182 

04230 

01077777 


LAA 

•"l 

02183 

04231 

55100000 


CALL 

HSWR 

02184 

04232 

35404236 


DAC 

M0VF 

02185 

04233 

00000014 


DATA 

12 


01/20/71 PAGE 


6T 


M0VE CHAR T0 A F0R MERGE 

10/23/67 

JDJ 

*B 

00215000 

SET CHAR T0 A 0-7 

10/23/67 

JDJ 

*B 

00215100 

ST0RE HALF FULL W0RD 

10/23/67 

JDJ 

• B 

00215200 

SET FLIP-FL0P SW 

10/23/67 

JDJ 

#B 

00215300 

T0 W0RD WILL BE FULL 

10/23/67 

JDJ 

*B 

00215400 

GET A 0NE T0 TEST PAD 

10/23/67 

JDJ 

*B 

00215500 

TEST THE PAD SW 

10/23/67 

JDJ 

«B 

00215600 

2, THEN SET CL0SE RESET 

10/23/67 

JDJ 

»B 

00215700 

1, THEN SET T0 CL0SE PACK 

10/23/67 

JDJ 

*B 

00215800 

0, N0RMAL PACKING, REST0R 

10/23/67 

JDJ 

• B 

00215900 

EXIT FR0M SUBROUTINE 

10/23/67 

JDJ 

*B 

00216000 

SETUP T0 RESET CL0SE 

10/23/67 

JDJ 

*B 

• 00216100 

RESET PAD SW 

10/23/67 

JDJ 

• B 

00216200 

PACKING W0RD T0 EMPTY 

10/23/67 

JDJ 

*B 

00216300 

G0 SETUP T0 EXIT 

10/23/67 

JDJ 

*B 

, OU ’’16400 

SET PAD SW T0 CLOSE PAD 

10/23/67 

JDJ 

«6 

002165r 

GET PACKING SW 

10/23/67 

JDJ 

*B 

0 0.-1660l 

-1« NEED T0 SPACE FILL 

10/23/67 

JDJ 

«B 

00 167C 

QUIT WITH FULL W0RD G0NE 

10/23/67 

JDJ 

*B 

00 168C’ 

L0AD A WITH A SPACE 

10/23/67 

JDJ 


00 1690; 

G0 INSERT FILL 0F SPACE 

10/23/67 

JDJ 

*B 

00°1700u 

SET PACKING SW 

10/23/67 

JDJ 

*B 

00 17100 

T0 EMPTY 

10/23/67 

JDJ 

*B 

00217200 

GET PARTICAL W0RD 

10/23/67 

JDJ 

*B 

00217300 

MERGE IN NEW CHAR 

10/23/67 

JDJ 


00217400 

GET ADDRESS 0F NEXT CELL 

10/23/67 

JDJ 

»B 

00217500 

ST0RE D0U8LE W0RD IN MACR 

10/23/67 

JDJ 


00217600 

SET PR0T0 ADR T0 NX CELL 

10/23/67 

JDJ 

«B 

00217700 

M0VE ADDRESS S0 END TEST 

10/23/67 

JDJ 

• B 

00217800 

LAST P0SITI0N IN AREA 

10/23/67 

JDJ 

«B 

00217900 

G0 TEST PAD SW, IN-B0UNDS 

10/23/67 

JDJ 

*B 

00218000 


10/23/67 

JDJ 

*B 

00218100 

SET T0 0UTPUT T0 ASR 

10/23/67 

JDJ 

*B 

00218200 

0UTPUT T0 ASR 

10/23/67 

JDJ 

*B 

00218300 

MACR0 0VF T0 ASR 

10/23/67 

JDJ 

«B 

00218400 

12 W0RDS, 3 ARE C0NTR0L 

10/23/67 

JDJ 

*B 

00210500 



810 A/8 MACR0-ASSEMBLER 044004E 01/20/71 PAGE 62 


02186 

04234 

00000000 


HLT 




10/23/67 

JDJ 

#B 

00218600 

02187 

04235 

11100612 


BRU 

MNEM 

C0MPLETLY RESTART ASSEM 

10/23/67 

JDJ 


00218700 

02188 

04236 

00000261 

M0VF 

DATA 

*261,*315, 

*301,*303,*322,*317,*240 


10/23/67 

JDJ 

• B 

00218800 

02188 

04237 

00000315 










02188 

04240 

00000301 










02188 

04241 

00000303 










02188 

04242 

00000322 










02188 

04243 

00000317 










02188 

04244 

00000240 










02189 

04245 

00000317 


DATA 

*317,*326, 

*306,*215,*212 


10/23/67 

JDJ 

• B 

00218900 

02189 

04246 

00000326 










02189 

04247 

00000306 










02189 

04250 

00000215 










02189 

04251 

00000212 










02190 



* THE 

■ AB0VE MESSAGE 

IS MACR0 0VF 


10/23/67 

JDJ 

*B 

' oo ni Q nnn 

02191 



« SUBR0UT1NE P8CD T0 

PACK A 12-15 INT0 BCD 4 

BIT 

10/23/67 

JDJ 

• B 

00, i 

02192 

04252 

25400000 

PBCD 

DAC 

0 

ENTER SUBR0UTINE 


10/23/67 

JDJ 

#B 

002 

02193 

04253 

00001416 


LSL 

12 

SHIFT 0FF ASCII bais 


10/23/67 

JDJ 

*B 

0 0 ~ l 

02194 

04254 

00000005 


TAB 


M0VE A T0 B F0R PACKING 

10/23/67 

JDJ 

*8 

002194 

02195 

04255 

01100542 


LAA 

P4BD 

GET ACCUMULATED BCD 


10/23/67 

JDJ 


002195 

02196 

04256 

00000413 


FU¬ 

4 

C0NCATENATE 4 BITS 0F BCD 

10/23/67 

JDJ 

• B 

002196IK 

02197 

04257 

03100542 


ST A 

P48D 

ST0RE ACCUMULATED DECIMAL 

10/23/67 

JDJ 

*B 

00219700 

02198 

04260 

11304252 


BRU* 

PBCD 

EXIT FR0M SU8R0UTINE 


10/23/67 

JDJ 

*B 

00219800 

02199 



» 





10/23/67 

JDJ 

*8 

00219900 

02200 



* SUBR0UTINE MDBN C0NVERT 2 DEC DIGITS T0 BINARY 

10/23/67 

JDJ 

*B 

00220000 

02201 

04261 

25400000 

MDBN 

DAC 

0 

ENTER SUBR0UTINE 


10/23/67 

JDJ 

«B 

00220100 

02202 

04262 

00000003 


CUA 


ZER0 ADDER 


10/23/67 

JDJ 

*B 

00220200 

02203 

04263 

02100542 


LBA 

P4BD 

SET B WITH VALUE IN 

DEC 

10/23/67 

JDJ 

*B 

00220300 

02204 

04264 

00001413 


FU 

12 

M0VE TENS INT0 ADDER 


10/23/67 

JDJ 

• B 

00220400 

02205 

04265 

03100606 


STA 

PBIN 

ST0RE VALUE IN TEMP 

ANSR 

10/23/67 

JDJ 

»B 

00220500 

02206 

04266 

00000211 


LSA 

2 4X C0NVERT T0 TENS 2<4X*X) 

10/23/67 

JDJ 

*B 

00220600 

02207 

04267 

05100606 


AMA 

PBIN 

4X*X 


10/23/67 

JDJ 

*B 

00220700 

02208 

04270 

00000111 


LSA 

1 

2 (4X + X) 


10/23/67 

JDJ 

*B 

00220800 

02209 

04271 

03100606 


STA 

PBIN 

ST0RE TENS 


10/23/67 

JDJ 

*B 

00220900 

02210 

04272 

00000003 


CLA 


SET UP T0 ADD UNITS 


10/23/67 

JDJ 

• B 

00221000 

02211 

04273 

00000413 


FLL 

4 

GET UNITS 


10/23/67 

JDJ 

«B 

00221100 
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02212 

04274 

05100606 


AMA 

PBJN 

ADD UNITS T0 PARTICAL ANS 

10/23/07 

JDJ 

»B 

00221200 

02213 

04275 

00000024 


SAP 


TEST F0R P0SITIVE VALUE 

10/23/67 

JDJ 


80221300 

02214 

04276 

00000020 


ASC 


N0, SET T0 MAGNITUDE 

10/23/67 

JDJ 

*8 

0)221400 

02215 

04277 

03100606 


STA 

pbin 

ST0RE MAGNITUDE 0F ANSR 

10/23/67 

JDJ 


0 ’221500 

02216 

04300 

11304261 


8RU» 

mdbn 

EXIT FR0M SUBR0UTINE 

10/23/67 

JDJ 

•8 

00221600 

02217 



ft 




10/23/67 

JDj 


00221700 

02218 



* SUBR0UT1NE PVFD, 

T0 PACK THE VARIABLE FIELD 

10/24/67 

JDJ 


00221800 

02219 

04301 

25400000 

PVFD 

DAC 

0 

ENTER SUBR0UTINE 

10/24/67 

JDJ 

■ B 

00221900 

02220 

04302 

00000003 


CLA 


SET SPACE DELIMITER 

10/24/07 

JDJ 

*8 

00222000 

02221 

04303 

03100574 


STA 

SPDL 

T0 T-HE 0FF v STATUS 

10/24/67 

JDJ 

#B 

00222m 

02222 

04304 

12107241 


SPB 

SCF 

GET A CHARACTER 

10/24/87 

JDJ 

• B 

. 00222200 

02223 

04305 

15000240 


CMA 

*'240 

IS IT A SPACE 

10/24/67 

JDJ 

»B 

00222300 

02224 

04306 

Ill043l0 

s 

BRU 

«*2 

N0 C0NTINUE 

10/24/07 

JDJ 

«B 

00222400 

02225 

04307 

11104352 


BRU 

PVFl 

YES TRY F0R AN0THER SPACE 

10/24/67 

JDj 

*8 

00222500 

02226 

04310 

03104377 

PVF9 

STA 

PVWK 

N0, SAVE CHAR IN TEMP W0»KlD/£4/67 

JDj 

*8 

0^22600 

02227 

04311 

01000020 


LAA 

s ’ 20 

BIT 11 0N 

10/24/67 

JDJ 

48 

00>22701 

02226 

04312 

12103747 


SPB 

GCTL 

MERGE PRES 0F VAR FIELD 

11/14/67 

JDJ 

«B 

0 0 3 2 2 6 0 G 

02229 

04313 

01104377 


LAA 

PVWK 

REST0RE A 

10/24/67 

JDJ 

40 

0 0 1 2290' 

02230 

04314 

15000240 

PVF5 

CMA 

■ *240 

L00K F0R A SPACE 

10/24/67 

JDj 

♦ B 

00^2300 

02231 

04315 

11104317 


BRU 

#♦2 

N0, PACK THEN EXAMINE 

10/24/67 

JDw 

«B 

OQi!23l0! 

02232 

04316 

11104357 


BRU 

PVF2 

YES. TEST SPACE DELIMITER 

10/24/67 

JDJ 


0Q‘)23200 

02233 

04317 

12104162 

PVF7 

SPB 

PACK 

PACK THE CHAR 

10/24/67 

JDJ 


00223300 

02234 

04320 

15104657 


CMA 

PSGN 

USER CHAR P0UND SIGN 

10/24/67 

JDJ 

4B 

00223400 

02235 

04321 

11104323 


BRU 

♦ ♦2 

N0, C0NTINUE 

10/24/67 

JDJ 

»B 

00223500 

02236 

04322 

11104364 


BRU 

PVF3 

YES READ M0RE CHAR 

lQ/24/07 

JDJ 

K L 

0Q223600 

02237 

04323 

15104660 


CMA 

ATSN 

INTERNAL AT SIGN 

10/24/67 

JOJ 

*e 

00223700 

02238 

04324 

11104326 


BRU 

*♦2 

N0, C0NTINUE 

i0/?4/67 

JDJ 

48 

0(1223800 

02239 

04325 

11104364 


BRU 

PVF3 

YES# READ M0RE CHAR 

10/24/67 

JDJ 

*B 

0(1223900 

02240 

04326 

15000247 


CMA 

s’247 

CHAR AN AP0S 

10/24/67 

JDJ 

48 

0022400Q 

02241 

04327 

1H04331 


BRU 

* + 2 

N0 # C0NTINUE 

10/24/67 

JDJ 

*8 

00224100 

02242 

04330 

11104333 


BRU 

PVF4 

YES, L00K F0R AN0THER A>S 

10/?4/67 

JDJ 

• B 

00224200 

02243 

04331 

12107241 


SPB 

SCF 

GET NEXT CHAR 

10/24/67 

JDJ 

*8 

00224300 

02244 

04332 

H104314 


BRU 

PVF5 

G0 cycle CHAR 

10/24/67 

JDJ 

4B 

00224400 

02245 

04333 

12107241 

PVF4 

SPB 

SCF 

GET AN0THER CHAR 

10/24/67 

JDJ 

40 

00224500 

02246 

04334 

15000247 


CMA 

■ *247 

IS IT AN AP0S 

10/24/67 

JDJ 

■ B 

00224600 

02247 

04335 

11104314 


BRU 

PVF5 

N0 THEN CYCLE 

10/24/67 

JQJ.v 

r* B 

.00224700 
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92248 

04336 

11104340 


BRU 

*♦2 

YES C0NTINUE 

10/24/67 

JDJ 

*B 

00224800 

92249 

04337 

11104314 


BRU 

PVF5 

N0 THEN CYCLE 

10/24/67 

JDJ 


00224900 

02250 

04340 

00000005 


TAB 


SAVE A IN B 

10/24/67 

JDJ 

*8 

00225000 

02251 

04341 

01100574 


LAA 

SPDL 

GET THE SPACE DELIMITER 

10/24/67 

JDJ 

«B 

00225100 

02252 

04342 

00000024 


SAP 


O«0FF 

10/24/67 

JDJ 

«B 

QJ225200 

02253 

04343 

11104350 


BRU 

PVF6 

*l a 0N 

10/24/67 

JDJ 

• B 

00225300 

02254 

04344 

01077777 


LAA 

»-l 

SET T0 TURN SPACE DEL 0N 

10/24/67 

JDJ 

*B 

00225400 

02255 

04345 

03100574 

PVF8 

STA 

SPDL 

ST0RE STATUS 0F 0PSITE 

10/24/67 

JDJ 

#B 

00225500 

02256 

04346 

00000004 


tba 


REST0RE A 

10/24/67 

JDJ 

#B 

00225600 

02257 

04347 

11104317 


BRU 

PVF7 

G0 PACK AP0S 

10/24/67 

JDJ 

«B 

00225700 

02258 

04350 

00000003 

PVF6 

CLA 


SET T0 TURN 0FF SPACE DEL 

10/24/67 

JDJ 

*B 

00225800 

02259 

04351 

11104345 


BRU 

PVF8 

ST0RE SPACE DEL 

10/24/67 

JDJ 

«B 

00225900 

02260 

04352 

12107241 

PVF1 

SPB 

SCF 

GET C0LUMN 12 

10/24/67 

JDJ 

#B 

00226000 

02261 

04353 

15000240 


CMA 

a 1 240 

SPACE 

10/24/67 

JDJ 

#8 

00226100 

02262 

04354 

11104310 


BRU 

PVF9 

N0 1 USE AS BEGINNING 

10/24/67 

JDJ 

«B 

* OtP'^’HO 

02263 

04355 

11304301 

PVtO 

BRU* 

pvfd 

EXIT FR0M SUBR0UTINE 

10/24/67 

JDJ 

• B 

OOkiC 

02264 

04356 

11104310 


BRU 

PVF9 

N0 USE AS BEGINNING 

10/24/67 

JDJ 

• B 

002 2t 

02265 

04357 

00000005 

PVF2 

TAB 


SAVE A IN B 

10/24/67 

JDJ 

«B 

00226- 

02266 

04360 

01100574 


LAA 

SPDL 

GET SPACE DEL 

10/24/67 

JDJ 


002266 

02267 

04361 

00Q00023 


SAN 


TEST F0R DEL 

10/24/67 

JDJ 

*B 

002267 

02268 

04362 

11104355 


BRU 

PV10 

Os0FF , THEN EXIT 

10/24/67 

JDJ 

*B 

0022680 - 

02269 

04363 

11104346 


BRU 

PVF8*1 

• 1s0N f ACCEPT SPACE 

10/24/67 

JDJ 


00226900 

02270 

04364 

00000003 

PVF3 

CLA 


SET DEC ACCUM T0 2ER0 

11/14/67 

JDJ 

• B 

00227000 

02271 

04365 

03100542 


STA 

P4BD 

CLEAR FRR PBCD NULL 

11/14/67 

JDJ 

*B 

00227100 

02272 

04366 

1210425? 


SPB 

PBCD 

PACK THE DECIMAL DIGIT 

10/24/67 

JDJ 

*B 

00227200 

02273 

04367 

12107241 


SPB 

SCF 

GET NEXT CHAR . 

10/24/67 

JDJ 

»B 

00227300 

02274 

04370 

i2107266 


SPB 

SCD 

TEST F0R DIGIT 

10/24/67 

JDJ 

• B 

00227400 

02275 

04371 

11104366 


BRU 

«-3 

G0 PACK DECIMAL AND READ 

10/24/67 

JDJ 

• B 

00227500 

02276 

04372 

03104377 


STA 

PVWK 

SAVE A IN MEM0RY 

10/24/67 

JDJ 

• B 

00227600 

02277 

04373 

12104261 


SPB 

MDBN 

C0NVERT DEC T0 BINARY 

10/24/67 

JDJ 

• B 

00227700 

02278 

04374 

12104162 


SPB 

PACK 

PACK THE CHARACTER 

10/24/67 

JDJ 

«B 

00227800 

02279 

04375 

01104377 


LAA 

PVWK 

REST0RE A FR0M MEM0RY 

10/24/67 

JDJ 

»B 

00227900 

02280 

04376 

11104314 


BRU 

PVF5 

G0 PR0CESS CHAR 

10/24/67 

JDJ 

• B 

00228000 

02281 



» 




10/24/67 

JDJ 

«B 

00228100 

02282 

04377 

00000001 

PVWK 

BSS 

1 

PVFD TEMP W0RD ST0RAGE 

10/24/67 

JDJ 

• B 

00228200 

02283 



* address 

0R POINTERS 

USED BY MACR0 SUBR0UTINES 

10/23/67 

JDJ 

«B 

00228300 
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02284 

04400 

25400000 

RPAD 

DAC 

0 

RELATIVE P0INTER F0R GPLT 

10/23/67 

JDJ 

*8 

02285 

04401 

25400000 

ULAD 

DAC 

0 

ABS0LUTE P0INTER F0R UNLA 

10/23/67 

JDJ 

• B 

02286 

04402 

25400000 

IMAG 

DAC 

0 

RELATIVE P0INTER F0R PIMG 

10/23/67 

JDJ 

• B 

02287 

04403 

25400000 

RCLM 

DAC 

0 

REL P0INTER F0R P4LC 

10/23/67 

JDJ 

• B 

02288 

04404 

25400000 

PDAD 

DAC 

0 

ABS PACK PR0T0 ADDRESS 

10/23/67 

JDJ 

• B 

02289 

04405 

25400000 

CTAD 

DAC 

0 

ABS CTL WD ADRS DCTY 

10/23/67 

JDJ 

«B 

02290 

04406 

35410542 

NPAD 

DAC 

MARA 

BEG ADDRESS 0F MACR0 AREA 

10/23/67 

JDJ 

• 8 

02291 

04407 

25400000 

LANL 

DAC 

0 

LAST ADR ASGN T0 NAME TAB 

10/23/67 

JDJ 

• B 

02292 

04410 

35412115 

BANT 

DAC 

TYPM 

BEGINNING ADR 0F NAME TAB 

10/23/67 

JDJ 

«B 

02293 



* S-UBR0UTINE EXCL, 

T0 EXPAND THE MACR0 CTL W0RD 

10/23/67 

JDJ 


02294 

04411 

254000Q0 

EXCL 

DAC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

*B 

02295 

04412 

02104401 


LBA 

ULAD 

ADDRESS 0F CTL W0RD 

10/23/67 

JDJ 


02296 

04413 

14104401 


IMS 

ULAD 

SET UNLA T0 FIRST DATA WD 

10/23/67 

JDJ 

♦ B 

02297 

04414 

00000003 


CLA 


ZER0 A F0R 

10/23/67 

JDJ 

#8 

02296 

04415 

03100540 


STA 

U88T 

UNLA FLIP-FL0P SW 

10/23/67 

JDJ 

• B 

02299 

04416 

01400000 


laa 

0,1 

GET C0NTR0L W0RD 

11/15/67 

JDJ 

• B 

02300 

04417 

03100547 


STA 

ML0C 

SET L0CATI0N INDICATOR 

11/15/67 

JDJ 

• 8 

02301 

04420 

00000116 


LSL 

1 

SHIFT 0FF BIT 0 

11/15/67 

JDJ 

«8 

02302 

.04421 

02000000 


LBA 

sO 

clear b 

11/15/67 

JDJ 


02303 

04422 

0 0 0 0 0 314 


FRL 

3 

P0SITI0N LENGTH 0F L0C 

11/15/67 

JDJ 

*B 

02304 

04423 

04100550 


STB 

LLPD 

ST0RE LENGTH 0F L0CATI0N 

11/15/67 

JDJ 

*B 

02305 

04424 

03100551 


STA 

M0PC 

ST0RE 0P C0DE PRESENTS 

11/15/67 

JDJ 

«B 

02306 

04425 

00000116 


LSL 

1 

SHIFT 0FF BIT 4 

11/15/67 

JDJ 

«B 

02307 

04426 

02000000 


LBA 

*0 

clear b 

11/15/67 

JDJ 

• 8 

02308 

04427 

00000314 


FRL 

3 

P0SITI0N LENGTH 0F 0P 

11/15/67 

JDJ 

«B 

02309 

0443Q 

04100552 


STB 

L0PC 

ST0RE LENGTH 0F 0p C0DE 




02310 

04431 

02000000 


LBA 

sO 

CLEAR B 

11/15/67 

JDJ 

#B 

02311 

04432 

00000314 


FRL 

3 

P0SITI0N TYPE C0DE 

11/15/67 

JDJ 

*B 

02312 

04433 

04i00553 


STB 

T0PC 

TYPE 0P C0DE 

11/15/67 

JDJ 

*B 

02313 

04434 

03100554 


STA 

MVFD 

VAR FIELD PRESENT 

11/15/67 

JDJ 

• B 

02314 

04435 

02077774 


LBA 

3-4 

SET L00P C0UNTER 

11/15/67 

JDJ 

#B 

02315 

04436 

00000116 


LSL 

1 

SET BIT IN SIGN 

11/15/67 

JDJ 

*8 

02316 

04437 

03500561 


STA 

MC0L+4,1 

ST0RE MC0L,MI0C,ERRM,E0MR 

11/15/67 

JDJ 

*B 

02317 

04440 

00000026 


IBS 


C0UNT 4 TIMES 

11/15/67 

JDJ 

*8 

02318 

04441 

11104436 


8RU 

#-3 

C0NTINUE T0 ST0RE 

11/15/67 

JDJ 

♦ B 

02319 

04442 

11304411 


BRU« 

EXCL 

EXIT FR0M SUBR0UTINE 

10/23/67 

JDJ 

*8 


65 


01)228400 
01)228500 
00228600 
00228700 
00228800 
00228900 
00229000 
00229100 
00229200 
00229300 
00229400 
00229500 
00229600 
00229700 
0C’°29800 
Ot 29900 
00^30000 
00 30100 
00^30200 
.00230300 
00230400 
00°30500 
00230600 
00230700 
00230800 
00230900 
00331000 
00331100 
00231200 
00231300 
00231400 
00231500 
00231600 
00231700 
00231800 
00231900 
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02320 








10/23/67 

JDJ 

*B 

Li u232QQ0 

02321 



* 





10/23/67 

JDJ 

*8 

00232100 

02322 



* 

SUBR0UTINE PP2W , T0 

PACK THE PARAMETER LIST 

10/23/67 

JDJ 

*B 

00232200 

02323 



ft 





10/23/67 

JDJ 

#B 

00232300 

02324 

04443 

25400000 

PP2W 

DAC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

«B 

00232400 

02325 

04444 

01077740 



laa 

s-32 

SET TEMP C0UNTER B0R SAVE 

10/23/67 

JDJ 

*8 

00232500 

02326 

04445 

03112041 



STA 

W0RK 

ING THE LIST 

10/23/67 

JDJ 


00232600 

02327 

04446 

02077700 



LBA 

s»64 

SEL SCANNER T0 CARD GET 

10/23/67 

JDJ 

«B 

00232700 

02328 

04447 

04112042 



STB 

W0RK+1 

SAVE IN TEMP W0RK 

11/17/67 

JDJ 

• 8 

00232800 

02329 

04450 

02112042 

PPW1 

LBA 

W0RK*1 

GET IMAGE P0INTER •• 

11/17/67 

JDJ 

*B . 

OQ2329DO 

0 2330 

04451 

01500530 



LAA 

BUB + 22 + 64,1 

AREA ADJUSTED, GET CHAR I 

10/23/67 

JDJ 

»B 

00233000 

02331 

04452 

00001016 



LSL 

8 

M0VE LH T0 BITS 0-7 

10/23/67 

JDJ 

*B 

00233100 

02332 

04453 

02500531 



LBA 

BUB + 23*64,1 

CHAR I-TH PLUS 1 

10/23/67 

JDJ 

• B 

00233200 

02333 

04454 

00000030 



0RA 


MERGE CHARS I AND'1*1 

10/23/67 

JDJ 

*8 

00233300 

02334 

04455 

14H2042 



IMS 

W0RK+1 

SET P0INTER T0 

10/23/67 

JDJ 

*B , 

00233400 

02335 

04456 

14112042 



IMS 

W0RK+1 

SEC0ND SET 0B PAIR 

10/23/67 

JDJ 

*B 

00 

02336 

04457 

00000033 


s 

N0P 



10/23/67 

JDJ 

*B 

0 0' 

02337 

04460 

02112041 



LBA 

W0RK 

GET PACKER P0INTER 

10/23/67 

JDJ 

*B 

00-'- 

02338 

04461 

03512105 



STA 

PLST+32,1 

PACK BR0M LEBT T0 RIGHT 

10/23/67 

JDJ 


0023J. 

02339 

04462 

14112041 



IMS 

W0RK 


11/07/67 

JDJ 

*B 

002339 

02340 

04463 

11104450 



BRU 

PPW1 

G0 CYCLE THR0UGH LIST 

10/23/67 

JDJ 


002341 

02341 

04464 

11304443 



BRU* 

PP2W 

EXIT BR0M SUBROUTINE 

10/2*3/67 

JDJ 


002341UQ 

02342 



ft 





10/23/67 

JDJ 

*B 

00234200 

02343 



ft 





10/23/67 

JDJ 


00234300 

02344 



ft 

SUBR0UTINE PAST, T0 

GENERATE THE INTERNAL TAGS 

10/23/67 

JDJ 

*B 

00234400 

02345 

04465 

25400000 

PAST 

DAC 

0 

ENTER SUBROUTINE 

10/23/67 

JDJ 


00234500 

02346 

04466 

01100543 



LAA 

A999 

TEST B0R ASSIGNMENT 0VB 

10/23/67 

JDJ 

*8 

00234600 

02347 

04467 

00000024 



SAP 


0®0K S0 BAR 

10/23/67 

JDJ 

*B 

00234700 

02348 

04470 

11104544 



BRU 

PST1 

ERROR, EXIT BR0M SUBR0UTIN10/23/67 

JDJ 

*B 

00234800 

02349 

04471 

02100544 



LBA 

HPXX 

HIGHEST INT LAB PER MACRO 

10/23/67 

JDJ 

*B 

00234900 

02350 

04472 

00000004 



TBA 


GET INDICAT0R T0 TEST 

11/15/67 

JDJ 

«B 

00235000 

02351 

04473 

00000022 



SAZ 


TEST IB ANY INTERNAL LAB 

11/15/67 

JDJ 

«B 

00235100 

02352 

04474 

11104476 



BRU 

« + 2 

YES, CONTINUE 

11/15/67 

JDJ 

*8 

00235200 

02353 

04475 

11304465 



BRU* 

PAST 

N0,EX IT 

11/15/67 

JDJ 

*B 

00235300 

02354 

04476 

00000003 



CLA 


reset 

11/15/67 

JDJ 


00235400 

02355 

04477 

03100544 



STA 

HPXX 

HIGHEST INT LAB USED 

11/15/67 

JDJ 

*8 

00235500 
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02356 

04500 

03112250 

STA 

AHTU 

SET T0 INVALID BASE 

11/17/67 

JDJ 

«B 

00235600 

02357 

04501 

02512250 

LBA 

AHTU * 1 

GET DECIMAL W0RD 3 DIGITS 

10/23/67 

JD J 


00235700 

02358 

04502 

00000413 

FLL 

4 

SETUP HUNDREDS T0 BE ST0R 

10/23/67 

JDJ 

• B 

00235800 

02359 

04503 

03112043 

STA 

W0RK + 2 

HUNDREDS IN DECIMAL 

10/23/67 

JD J 

«B 

00235900 

02360 

04504 

00000003 

CIA 



10/24/67 

JDJ. 


00236000 

02361 

04505 

00000413 

FLL 

4 

M0VE IN TENS 

10/24/67 

JD J 

• B 

00236100 

02362 

04506 

03112042 

STA 

W0RK + 1 

AND ST0RE 

10/24/67 

JDJ 

• B 

00236200 

02363 

04507 

00000003 

CLA 



10/24/67 

JDJ 

«B 

00236300 

02364 

04510 

00000413 

FLL 

4 

M0VE IN UNITS 

10/24/67 

JDJ 

• B 

00236400 

"02365'“'* 

04511 

03112041 

~STA« 

W0RK - - 

ANB~ST0RE F0R T0TAL-BASE 

10/84/67 

JDJ 

*B ■ 

00236500 

02366 

04512 

01077760 

LAA 

,-16 

SET L00P C0UNTER 

10/24/67 

JDJ 

• B 

00236600 

02367 

0451? 

03112044 

STA 

W0RK + 3 

T0 CYCLE 16 ADD ITI0NS 

10/24/67 

JDJ 

*B * 

00236700 

02368 

04514 

02000000 

PSI2 LBA 

*0 

SET B T0 2ER0 

10/24/67 

JDJ 

• B 

00236800 

02369 

04515 

14112041 

IMS 

W0RK 

increment UNTTS 

11/15/67 

JDJ 

#B 

00236900 

02370 

04516 

01112041 

laa 

W0RK 

GET UNITS CURRENT VALUE 

10/24/67 

JDJ 


0 '237000 

02371 

04517 

15000011 

CMA 

*9 

DIGIT 0VERFL0W 

11/15/67 

JDJ 

*B 

0 .1237^ 

02372 

04520 

00000033 

N0P 


N0 

10/24/67 

JDJ 

»B 

0023720 

02373 

04521 

11104545 

BRU 

PST3 

N0 60 GENERATE DEC W0RD 

10/24/67 

JDJ 

*B 

0"2373[ 

02374 • 

04522 

00000003 

CLA 


2ER0 0VERFL0W 

11/15/67 

JDJ 

«B 

0 2374( 

02375 

04523 

00000412 

FRA 

4 

P0SITI0N UNITS DIGIT 

10/24/67 

JDJ 

• B 

0L2375C 

02376 

04524 

03112041 

STA 

W0RK 

SET UNITS T0 2ER0 

10/24/67 

JDJ 


0H23760U 

02377 

04525 

14112042 

IMS 

W0RK + 1 

INCREMENT TENS 

11/15/67 

JDJ 

#B 

01237700 

02378 

04526 

01112042 

LAA 

W0RK + 1 

GET TENS P0SITI0N 

10/24/67 

JDJ 

#8 

00237800 

02379 

04527 *15000011 

CMA 

»9 

DIGIT 0VERFL0W 

11/15/67 

JDJ 

• B 

00237900 

02380 

04530 

0-0000033 

N0P 


N0 

10/24/67 

JDJ 

• B 

00238000 

02381 

04531 

11104562 

BRU 

PST4 

N0 G0 GENERATE DEC W0RD 

10/24/67 

JDJ 

• B 

00.2^8100 

02382 

04532 

00000003 

CLA 


2ER0 0VERFL0W 

11/15/67 

JDJ 

*B 

00238200 

02383 

04533 

00000412 

FRA 

4 

M0VE DECIMAL 2ER0 

10/24/67 

JDJ 

*B 

00238300 

02384 

04534 

03112042 

STA 

W0RK + 1 

ST0RE 2ER0 IN TENS 

10/24/67 

JDJ 

#B 

00238400 

02385 

04535 

14112043 

IMS 

W0RK + 2 

INCREMENT HUNDREDS 

11/15/67 

JDJ 

#B 

00238500 

02386 

04536 

01112043 

LAA 

W0RK + 2 

GET HUNDREDS 

10/24/67 

JDJ 

#B 

00238600 

02387 

04537 

15000011 

CMA 

«9 

DIGIT 0VERFL0W 

11/15/67 

JDJ 

• B 

00238700 

02388 

04540 

00000033 

N0P 


N0 

10/24/67 

JDJ 

• B 

00238800 

02389 

04541 

11104564 

BRU 

PST5 

N0• G0 GENERATE DEC W0RD 

10/24/67 

JDJ 

«B 

00238900 

02390 

04542 

01077777 

LAA 

s»l 

TURN 0N A999 ERR0R FLAG 

10/24/67 

JDJ 

*B 

0023900" 

02391 

04543 

03100543 

STA 

A999 

SET 0VERFL0W FLAG 

10/24/67 

JDJ 

• B 

00239100 
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2392 

04544 

11304465 

PST1 

BRU* 

PAST 

EXIT FR0M SUBR0UTINE 

10/24/67 

JDJ 

*B 

00239200 

2393 

04545 

03112041 

PST3 

STA 

W0RK 

SAVE CURRENT UNITS 

10/24/67 

JDJ 

#B 

00239300 

2394 

04546 

00000412 


FRA 

4 

M0VE T0 DECIMAL BUILD 

10/24/67 

JDJ 

*B 

0U239400 

; 2395 

04547 

01112042 


LAA 

W0RK+1 

GET TENS DIGIT 

10/24/67 

JDJ 

• B 

00239500 

32396 

04550 

00000412 

PST 6 

FRA 

4 

M0VE IN TENS 

10/24/67 

JDJ 

*8 

00239600 

u2397 

04551 

01112043 


LAA 

W0RK+2 

GET HUNDREDS 

10/24/67 

JDJ 

«B 

00239700 

02398 

04552 

00000412 

PST7 

FRA 

4 

M0VE IN HUNDREDS 

10/24/67 

JDJ 

*B 

00239800 

02399 

04553 

00000004 


TBA 


GET DECIMAL W0RD 

10/24/67 

JDJ 

*B 

00239900 

02400 

04554 

00000116 


LSI 

1 

LEFT JUSTIFY 

10/24/67 

JDJ 


00240000 

024(J1 

04555 

02112044 


LBA 

W0RK+3 

GET TABLE P0INTER 

10/24/67 

JDJ 

#B 

00240100 

02402 

04556 

03512271 


STA 

AHTU*17,1 

ST0RE IN TABLE 

11/17/67 

JDJ 

• B 

00240200 

12403 

.04557 

14112044 


IMS 

W0RK+3 

INCREMENT L00P C0UNTER 

10/24/67 

JDJ 

• B 

00248300 

02404 

04560 

11104514 


BRU 

PST2 

M0RE CYCLES NECESSARY 

10/24/67 

JDJ 

«B 

00240400 

02405 

04561 

11104544 


BRU 

PST1 

G0 EXIT FR0M SUBR0UTINE 

10/24/67 

JDJ 

»B 

00240500 

02406 

04562 

03112042 

PST4 

STA 

W0RK+1 

ST0RE TENS 

10/24/67 

JDJ 

«B 

Qr'MnAnn 

02407 

04563 

11104550 


BRU 

PST6 

G0 GENERATE DEC W0RD 

10/24/67 

JDJ 

*B 

0 0 

02408 

04564 

03112043 

PST5' 

STA 

W0RK+2 

ST0R6 HUNDREDS 

10/24/67 

JDJ 

*B 

0 0 

)2409 

04565 

11104552 


BRU 

PST7 

G0 GENERATE DEC W0RD 

10/24/67 

JDJ 

*8 

oo; 

)2410 



« 




10/24/67 

JDJ 

• B 

002410c 

)24H 



* SUBR0UTI 

NE EMPT, T0 

EXPAND A MACR0 PR0T0TYPE 

10/25/67 

JDJ 


0024110c 

)2412 

04566 

25400000 

EMPT 

DAC 

0 

ENTER SUBR0UTINE 

10/25/67 

JDJ 

*B 

00241200 

)2413 

04567 

01100602 


LAA 

EMSW 

GET IN1TICAL SW 

10/25/67 

JDJ 

*B 

00241300 

02414 

04570 

00000024 


SAP 


Os FIRST TIME 

10/25/67 

JDJ 

• B 

00241400 

02415 

04571 

11104576 


BRU 

EMP1 

-is IN PR0CESS 

10/25/67 

JDJ 

*8 

00241500 

02416 

04572 

01077777 


LAA 


TURN SW 0N 

10/25/67 

JDJ 


00241600 

02417 

04573 

03100602 


STA 

EMSW 

WITH A -1 

10/25/67 

JDJ 

*B 

00241700 

12418 

04574 

12104443 


SPB 

PP2W 

PACK THE PAR LIST 

10/25/67 

JDJ 

«B 

00241800 

12419 

04575 

12104465 


SPB 

PAST 

P0SIT10N THE INTERNAL TAB 

10/25/67 

JDJ 

*B 

00241900 

(2420 

04576 

12104411 

EMP1 

SPB 

EXCL 

EXPAND THE CTL W0RD 

10/25/67 

JDJ 

*B 

00242000 

12421 

04577 

01000001 


LAA 

si 

SET THE IMAGE P0INTER 1 

10/25/67 

JDJ 


00242100 

>2422 

04600 

03104402 


STA 

IMAG 

SET T0 C0LUMN 1 

10/25/67 

JDJ 

*8 

00242200 

12423 

04601 

01000240 


LAA 

a *24 0 

BLANK THE IMAGE AREA 

10/25/67 

JDJ 


00242300 

2424 

04602 

02077660 


lba 

s-80 

SET INDEX T0 FULL SCALE 

10/25/67 

JDJ 

*B 

00242400 

2425 

04603 

03500535 


STA 

BUF+11+80,1 

ST0RE ALL BLANKS 

10/25/67 

JDJ 


00242500 

2426 

04604 

00000026 


IBS 


IN THE ENTIRE 

10/25/67 

JDJ 


00242600 

2427 

04605 

111046Q3 


BRU 

• -2 

IMAGE AREA 

10/25/67 

JDJ 


00242700 
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02428 

04606 

01100560 


laa 

60MR 

GET E0M INDICAT0R 

10/25/67 

JDJ 

#B 

,2**.- jOG 

02429 

04607 

00000024 


SAP 


ZER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*B 

i ^242900 

02430 

04610 

11104647 


BRU 

EMP2 

Is YES IT IS E0M 

10/25/67 

JDJ 

*B 

Oi 243000 

02431 

04611 

01100555 


LAA 

MC0L 

GET C0MMENT SWITCH 

10/25/67 

JDJ 

«B 

00243100 

02432 

04612 

00000024 


SAP 


ZER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 


Qu243200 

02433 

04613 

11104651 


BRU 

EMP3 

Is YES IT IS A C0MMENT 

10/25/67 

JDJ 

«B 

00243300 

02434 

04614 

01100547 


LAA 

ML0C 

GET PRESENTS 0F L0CATI0N 

10/25/67 

JDJ 

• 8 

00243400 

02435 

04615 

00000024 


SAP 


ZER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*B 

00243500 

02436 

04616 

11104721 


BRU 

EMP4 

1* YES PR0CESS THE L0CATI010/25/67 

JDJ 

«B 

00243600 

02437 

04617 

12104755 

EHP5 

SP8 

C5XP 

EXPAND C0LUMN 5 TYPE C0DE 

10/25/67 

JDJ 

#B 

00243700 

02438 

04620 

01100551 


LAA 

M0PC 

GET PRESENTS 0F 0P C0DE 

10/25/67 

JDJ 

*8 

00243800 

02439 

04621 

00000024 


SAP 


ZER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*B 

00243900 

02440 

04622 

11104727 


BRU 

EMP6 

Is YES PR0CESS 

10/25/67 

JDJ 

• B 

00244000 

02441 

04623 

01100556 

EMP7 

LAA 

MI0C 

GET INDIRECT 0P C0DE 

10/25/67 

JDJ 

«B ' 

00244100 

02442 

04624 

00000024 


SAP 


2ER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*8 

0"?44200 

02443 

04625 

11104737 


BRU 

EMP8 

la YES PR0CESS INDIRECT 

10/25/67 

JDJ 

*B 

06 443 r ' n 

02444 

04626 

01100557 

EMP9 

LAA 

ERRM 

GET ERR0R BIT 

10/25/67 

JDJ 

*B 

00 ’44 

02445 

04627 

00000024 


SAP 


2ER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*B 

Ot ’445 

02446 

04630 

12102330 


SPB 

FWER 

Is YES PR0CESS ERR0R 

10/25/67 

JDJ 

*B 

0 0:4460 

02447 

04631 

01100554 


LAA 

mvfd 

Os N0 GET VAR PRESENTS 

10/25/67 

JDJ 

*B 

00 ’447L 

02448 

04632 

00000024 


SAP 


HER0 SIGN BIT MEANS N0 

11/15/67 

JDJ 

*B 

00 '44800 

02449 

04633 

11104744 


BRU 

EM12 

Is YES PR0CESS 

10/25/67 

JDJ 

*B 

00 44900 

02450 

04634 

12105127 


SPB 

UNLA 

GET NEXT CHAR FR0M STRING 

10/25/67 

JDJ 

#B 

00245000 

02451 

04635 

15000076 


CMA 

s • 76 

TEST F0R END 0F DETAIL 

10/25/67 

JDJ 

*B 

00245100 

02452 

04636 

11104640 


BRU 

*♦2 

N0 C0NTINUE 

10/25/67 

JDJ 

*B 

00245200 

02453 

04637 

11104664 


BRU 

TFLG 

G0 TEST SKIP/N0-SKIP FLAG 


*D 

00245300 

02454 

04640 

01000332 


LAA 

s * 332 

N0 S0FTWARE ERR0R 2 

10/25/67 

JDJ 

»B 

00245400 

02455 

04641 

03100404 


STA 

BUF*2 

PLACE A 8 IN 0UTPUT AREA 

10/25/67 

JDJ 


00245500 

02456 

04642 

00000003 

EM14 

CLA 


ZER0 SWITCHES 

10/25/67 

JDJ 

#B 

00245600 

02457 

04643 

03100603 


STA 

EXPN 

EXPAND MACR0 SW 

10/25/67 

JDJ 

• B 

00245700 

02458 

04644 

03100602 


STA 

EMSW 

TURN0FF INITIAL SW 

10/25/67 

JDJ 

«B 

00245800 

02459 

04645 

03104663 


STA 

BFLG 

CLEAR SKIP/N0-SKIP FLAG 



*D 

00245900 

02460 

04646 

11304566 


BRU* 

EMPT 

RETURN 



*D 

00246000 

02461 

04647 

14104566 

EMP2 

IMS 

EMPT 

SET T0 EXIT*1 

11/28/67 

JDJ 

*6 

00246100 

02462 

04650 

11104642 


BRU 

EM14 

G0 CL0SE EMPT SUBR0UTINE 

10/25/67 

JDJ 

*8 

00246200 

02463 

04651 

12105127 

EMP3 

SPB 

UNLA 

GET A CHARACTER 0F C0MMNT 

10/25/67 

JDJ 

*B 

0Q24630C 
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02464 

04652 

15000076 


CHA 

76 

Test fbr end bf detail 

11/09/67 JDJ 

*B 

0u246400 

02465 

04653 

11104655 


BRU 

*♦2 

N0 C0NTINUE 

10/25/67 JDJ 

• B 

00246500 

02466 

04654 

11104664 


BRU 

TFLG 

G0 TEST SKIP/N0-SKJP FLAG 

*D 

00246600 

02467 

04655 

12104764 


SPB 

P I MG 

N0 0UTPUT CHARACTER 

10/25/67 JDJ 

• B 

00246700 

02468 

04656 

11104651 


BRU 

EMP3 

G0 CYCLE T0 E0L sentinal 

10/25/67 JDJ 

*B 

00246800 

02469 

04657 

00000243 

PSGN 

DATA 

*243 

P0UND SIGN - SYMB0L LIST 



00246900 

02470 

04660 

00000300 

ATSN 

DATA 

*300 

AT SIGN - INTERNAL LABEL 



00247000 

02471 

04661 

00000274 

ASBl 

DATA 

1 274 



*D 

00247100 

02472 

04662 

00000276 

DSBl 

DATA 

>276 



*D 

00247200 

02473 

04663 

00000000 

BFLG 

DATA 

0 

• • C0ND-ITI0NAL ASSEM&LY FLAG 


*D 

00247300 

02474 



* m < 

i - * 

- » - « 

ft* * 8» • * m # O m O • 


*D 

00247400 

02475 



ft 

DETERMINE 

WHETHER NEXT LINE 0F C0DE SH0ULD BE ASSEMBLED 

*D 

00247500 

02476 

04664 

01104663 

TFLG 

LAA 

BFLG 

C0NDITI0NAL ASSEMBLY FLAG 


*D 

00247600 

02477 

04665 

00000023 


SAN 


SKIP IF SET 


*D 

00247700 

02478 

04666 

11104747 


BRU 

EM13 

N0T SET, C0NTINUE 


ftD 

00247800 

02479 

04667 

00000020 


ASC 


CHANGE SIGN 


*D 

00 "" 

02480 

04670 

00000022 

V 

SAZ 


SKIP IF AsO 


• D 

00 « 

02481 

04671 

11104677 


BRU 

TST2 



*D 

00? - 

02482 

04672 

01100416 


LAA 

BUF + 12 

C0LUMN 1 IN CARD IMAGE 


• D 

0 0 ? 4 o 

02483 

04673 

06000240 


SMA 

s»240 



• D 

0 0 ? 4 8 c 

02464 

04674 

00000022 


SAZ 


SKIP IF IT WAS A BLANK 


*D 

0 0 2 4 8 : 

02485 . 

04675 

11104703 


BRU 

BUMP 



*D 

0024850U 

02486 

04676 

11104702 


BRU 

BMP2 

G0 SKIP T0 NEXT ’76 In MACR0 PR0T0TYPE 

• D 

00248600 

02487 

04677 

01100416 

TST2 

LAA 

BUF*12 

C0LUMN 1 IN CARD IMAGE 


#D 

00248700 

02488 

04700 

06000240 


SMA 

s»240 



*D 

00248600 

02489 

04701 

00000022 


SAZ 


SKIP IF IT WAS A BLANK 


*D 

00248900 

02490 

04702 

12104713 

BMP2 

SPB 

SK76 

SKIP T0 NEXT ’76 IN PR0T0TYPE 

*D 

00249000 

02491 

04703 

01100540 

BUMP 

laa 

U8BT 

RH-LH INDICAT0R 


*D 

00249100 

02492 

04704 

00000023 


SAN 




*D 

00249200 

02493 

04705 

11104711 


BRU 

ZFLG 

D0N * T INCREMENT PR0T0TYPE 

P0INTER 

**D 

00249300 

02494 

04706 

14104401 


IMS 

ULAD 

BUMP PR0T0TYPE P0INTER 


ftD 

00249400 

02495 

04707 

00000003 


CLA 




**D 

00249500 

02496 

04710 

03100540 


STA 

U8BT 



• D 

00249600 

02497 

04711 

03104663 

ZFLG 

STA 

BFLG 

clear flag 


*D 

00249700 

02498 

04712 

11104576 


BRU 

EMP1 

G0 EXPAND C0NTR0L W0RD 


*D 

00249800 

02499 



• 



' 


•n 

00249900 
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02500 

04713 

25400000 

SK76 

DAC 

»* 

SKIP T0 NEXT *76 IN PR0T0TYPE 


*D 

f iS>-.vOO 

02501 

04714 

12105127 

NX76 

SPS 

UNLA 

FETCH A CHARACTER 



*D 

O '. 25D100 

02502 

04715 

15000076 


CMA 

■ * 76 




*D 

0U250200 

02503 

04716 

11104714 


BRU 

NX76 

N0T * 



*D 

00250300 

02504 

04717 

11304713 


BRU« 

SK76 

*. RETURN 



*D 

00250400 

02505 

04720 

11104714 


BRU 

NX76 

N0T s 



*D 

00250500 

02506 




r » « 

«- » « # - # 



' « » » 

*D 

00250600 

02507 

04721 

01077777 

EMP4 

LAA 

*•1 

TURN 0N C0UNT C0NTRL SW 

10/25/67 

JDJ 

*8 

00250700 

02508 

04722 

03100577 


STA 

CDCT 

F0R DC0M 

10/25/67 

JDJ 

• B 

00250800 

D 25 0.9. 

04723 

01100550 


LAA 

LIFD 

GET LENGTH BY PFXF 

10/25/67 

JDJ 

*B 

00250900 

02510 

04724 

03100600 


STA 

DCMX 

SET T0 FIXED VALUE DC0M 

10/25/67 

JDJ 

*B 

002510GO 

02511 

04725 

12105004 


SPB 

DC0M 

EXPAND THE L0CATI0N FIELD 

10/25/67 

JDJ 

• B 

00251100 

02512 

04726 

11104617 


BRU 

EMP5 

G0 EXPAND C0L 5 

10/25/67 

JDJ 

*B 

00251200 

02513 

04727 

01000006 

EMP6 

LAA 

a6 

IMAGE P0INTER 

10/25/67 

JDJ 

*0 * 

00251300 

02514 

04730 

03104402 


STA 

IMAG 

IMAGE 0UTPUT BEGIN 

10/25/67 

JDJ 

«B 

00251400 

02515 

04731 

01077777 

s 

LAA 

*"1 

TURN 0N C0UNT C0NTR0L 

10/25/67 

JDJ 

*B 

OL 5l5 r 0 

02516 

04732 

03100577 


STA 

CDCT 

F0R DC0M 0P C0DE 

10/25/67 

JDJ 

*B 

00 -’Sr 6;: 

02517 

04733 

01100552 


LAA 

L0PC 

GET SI2E 0F 0P C0DE 

10/25/67 

JDJ 

• B 

OG 517 

02518 

04734 

03100600 


STA 

DCMX 

SET 0T PR0PE LENGTH 

10/25/67 

JDJ 

*B 

OG 518 j 

02519 

04735 

12105004 


SPB 

DC0M 

G0 EXPAND THE 0P C0DE 

10/25/67 

JDJ 

«B 

00 5190. 

02520 

04736 

11104623 


BRU 

EMP7 

G0 TEST F0R INDIRECT BIT 

10/25/67 

JDJ 

• B 

00 :5200f 

02521 

04737 

01000011 

EMP8 

LAA 

*9 

SET IMAGE P0INTER T0 9 

10/25/67 

JDJ 

«B 

00 52100 

02522 

04740 

03104402 


STA 

IMAG 

INDIRECT BIT 

10/25/67 

JDJ 

*B 

00252200 

02523 

04741 

01000252 


LAA 

* * 252 

LA0D A WITH ASTRISK 

10/25/67 

JDJ 

*B 

00252300 

02524 

04742 

12104764 


SPB 

P I MG 

T0 BE PLACED IN AREA 

10/25/67 

JDJ 

«B 

00252400 

02525 

04743 

11104626 


BRU 

EMP9 

G0 TEST F0R ERR0R BIT 

10/25/67 

JDJ 

#B 

00252500 

02526 

04744 

O10QQO13 

EM12 

LAA 

*11 

SET IMAGE 0UTPUT 

10/25/67 

JDJ 

*B 

00452600 

02527 

04745 

03104402 


STA 

IMAG 

T0 C0LUMN 11 

10/25/67 

JDJ 

• B 

00352700 

02528 

04746 

12105004 


SPB 

DC0M 

G0 EXPAND THE VARIABLE FL 

10/25/67 

JDJ 

*B 

00332800 

02529 

04747 

Q1000307 

EM13 

LAA 

**307 

G T0 INDICATE 

01/13/68 

JDJ *C 


00252900 

02530 

04750 

03100375 


STA 

LN0*4 

GENERATED C0DE 

01/13/68 

JDJ *C 


00253000 

02531 

04751 

01100540 


LAA 

U8BT 

GET UNLA LH-RH SW 

01/13/68 

JDJ *C 


00253100 

02532 

04752 

00000024 


SAP 


PLUS MEANS EMPTY 

10/25/67 

JDJ 

*B 

00253200 

02533 

04753 

14104401 


IMS 

ULAD 

MINUS MEANS PADDED, INCRMT10/25/67 

JDJ 

• B 

00253300 

02534 

04754 

11304566 

emio 

BRU* 

EMPT 

EXIT FR0M SUBR0UTINE 

10/25/67 

JDJ 

«B 

00253400 

02535 



* TAG 

! NAMED EMU WAS 

REM0VED BEF0RE C0DING 

10/25/67 

JDJ 

*B 

00253500 
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02536 



» 





10/25/67 

JDJ 

«B 

-- .,253600 

02537 



#' 





10/24/67 

JDJ 

«B 

00253700 

02538 




SUBR0UTINE C5XP T0 

REST0RE C0LUMN 5 AS TYPE 

10/23/67 

JDJ 

*B 

00253800 

02539 

04755 

25400000 

C5XP 

DAC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

*B 

00253900 

02540 

04756 

02100553 



LBA 

T0PC 

TYPE 0P C0DE FR0M CTL WRD 

10/23/67 

JDJ 


00254000 

02541 

04757 

01512105 



LAA 

TYPE, 1 

GET PR0PER CHARACTER 

10/23/67 

JDJ 

• B 

00254100 

02542 

04760 

02000005 



LBA 

*5 

SET IMAGE POINTER T0 C0L5 

10/23/67 

JDJ 

*B 

00254200 

02543 

04761 

04104402 



STB 

IMAG 

ST0RE THRU B F0R PIMG 

10/23/67 

JDJ 

*B 

00254300 

02544 

04762 

12104764 



SPB 

P I MG 

PLACE REST0RED CHARA IN 5 

10/23/67 

JDJ 

*B 

00254400 

02545 ' 

04763 

11304755 



BRU* 

C5XP 


10/23/67 

JDJ 

*B 

00254500 

02546 



# 





10/23/67 

JDJ 

*B 

00254600 

02547 



* 

SUBR0UT 

INE T0 PLACE 

A 0-15 IN THE IMAGE AREA 

10/23/67 

JDJ 

*8 

00254700 

02548 

04764 

25400000 

P I MG 

DAC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

*8 

00254800 

02549 

04765 

02104402 



LBA 

IMAG 

GET REL ADR 0F IMAGE 

10/23/67 

JDJ 

• B 

00254900 

02550 

04766 

03500415 



STA 

BUF+11,1 

STORE CHAR IN NEXT SPACE 

10/23/67 

JDJ 

• B ' 

0[j oc ;5nnn 

02551 

04767 

00000006 



JAB 


SAVE A 

01/22/68 

JDJ *C 


00c ? 

02552 

0477Q 

15000110 



CMA 

s72 

TEST F0R END 

01/22/68 

JDJ *C 


00 : 

02553 

04771 

00000033 



N0P 


0F IMAGE AREA 

01/22/68 

JDJ #C 


00c )-j , 

02554 

04772 

11104774 



BRU 

*♦2 

N0 

01/22/68 

JDJ *C 


00c ^54 

02555 

04773 

11104777 



BRU 

P i Ml 

YES ERR0R 

01/22/68 

JDJ #C 


002555 

02556 

04774 

00000006 



IAB 






002556( 

02557 

04775 

14104402 



IMS 

IMAG 

M0VE POINTER UP PLUS 1 

10/23/67 

JDJ 

• B 

00255700 

02558 

04776 

11304764 



BRU* 

P I MG 

EXIT FROM SUBROUTINE 

10/23/67 

JDJ 

• B 

00255800 

02559 

04777 

12102330 

P I Ml 

SPB 

FWER 

ERROR* TOO MUCH DATA 

01/13/68 

JDJ *C 


00255900 

02560 

05000 

12101614 



SPB 

LIN 

LIST THE ERR0R 

01/23/68 

JDJ * 


00256000 

02561 

05001 

12102132 



SPB 

PNCH 

MDL 1/31/69 *C 


00256100 

02562 

05002 

14100173 



IMS 

LC 

RESERVE A W0RD 

01/23/68 

JDJ * 


00256200 

02563 

05003 

1H04647 



BRU 

EMP2 

EXIT TO ERROR 

01/23/68 

JDJ # 


00256300 

02564 



« 

SUBR0UTINE DCOM, T0 

EXPAND A DETAIL LINE 

10/25/67 

JDJ 

*8 

00256400 

02565 

05004 

25400000 

DC0M 

DAC 

0 

ENTER SUBROUTINE 

10/25/67 

JDJ 

#B 

00256500 

02566 

05005 

00000003 



CL A 


SET EERO CHARS 

10/25/67 

JDJ 

*B 

00256600 

02567 

05006 

03100576 



STA 

DCUN 

UNLACED BY DC0M EXPANSION 

10/25/67 

JDJ 

• B 

00256700 

02568 

05007 

01100577 

DCM1 

LAA 

CDCT 

COUNT CONTROL SW 

10/25/67 

JDJ 

• B 

00256800 

02569 

05010 

00000024 



SAP 


0 » NO USE CONTINUOUS 

10/25/67 

JDJ 

• B 

00256900 

02570 

05011 

11105034 



BRU 

DCM2 

-Is YES USE FIXED NUMBER 

10/25/67 

JDJ 

*B 

00257000 

02571 

05012 

12105127 

DCM6 

SPB 

UNLA 

GET A PACKED CHAR 

10/25/67 

JDJ 

• B 

00257100 
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0440Q4E 


02572 

05013 

15000076 


CHA 

= '76 

02573 

05014 

11105016 


BRU 

*♦2 

02574 

05015 

11105041 


BRU 

DCM3 

02575 

05016 

15104657 


CMA 

PSGN 

02576 

05.017 

11105021 


BRU 

* + 2 

02577 

05020 

11105047 


BRU 

DCM4 

02578 



« 



02579 

05021 

15104661 


CMA 

asbl 

02580 

05022 

11105024 


BRU 

**2 

02581 

05023 

11105044 


BRU 

DC20 

02582 

05024 

15104662 


CMA 

DSBL 

02583 

05025 

11105027 


BRU 

*♦2 

02584 

05026 

11105044 


BRU 

DC20 

02585 

05027 

15104660 


CMA 

ATSN 

02586 

05030 

11105032 

V 

BRU 

# + 2 

02587 

05031 

11105066 


BRU 

DCM5 

02588 

05032 

12104764 

DC10 

SPB 

P I MG 

02589 

05033 

11105007 


BRU 

DCM1 

02590 

05034 

14100576 

DCM2 

IMS 

DCUN 

02591 

05035 

01100576 


LAA 

DCUN 

02592 

05036 

15100600 


CMA 

DCMX 

02593 

05037 

00000033 


N0P 


02594 

05040 

11105012 


BRU 

DCM6 

02595 

05041 

00000003 

DCM3 

CIA 


02596 

05042 

03100577 


STA 

CDCT 

02597 

05043 

11305004 


BRU* 

DCOM 

02598 

05044 

00001516 

DC20 

LSI 

13 

02599 

05045 

03104663 


STA 

8FLG 

02600 

05046 

11105047 


BRU 

DCM4 

02601 



« 



02602 

05047 

14100576 

DCM4 

IMS 

DCUN 

02603 

05050 

12105127 


SPB 

UNLA 

02604 

05051 

15000020 


CMA 

*16 

02605 

05052 

00000033 


NOP 


02606 

05053 

11105055 


BRU 

*♦2 

02607 

05054 

11105074 


BRU 

DCM7 
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TEST F0R END 0F DETAIL 

10/25/67 

JDJ 

*B 

00257200 

NO # C0NTINUE 

10/25/67 

JDJ 

*b 

0 257300 

YES# SETUP EXIT 

10/25/67 

JDJ 

*B 

0 257400 

TEST F0R USER INSERTI0N 

10/25/67 

JDJ 

*B 

0 257500 

N0 , C0NTINUE 

10/25/67 

JDJ 

*B 

0J257600 

YES, G0 INSERT USER INF0 

10/25/67 

JDJ 

*B 

00257700 

TEST F0R C0NDITI0NAL ASSEMBLY SYMBOLS 

*D 

00257800 

*’274 9 



*D 

00257900 

NOT* 



*D 

00258000 

a , 



*D 

00258100 

**276 9 



• D 

00258200 

N0T * 



*D 

00258300 

n 



*Q 

00258400 

TEST F0R INTERNAL LABEL 

10/25/67 

JDJ 

*B 

00258500 

N0 # CONTINUE 

10/25/67 

JDJ 

*8 

Or "’58600 

YES GET GENERATED LBAEL 

10/25/67 

JDJ 

• B 

00 ’587 

N0 THEN OUTPUT NORMAL 

10/25/67 

JDJ 

*B 

00^586 

CONTINUE T0 unlace 

10/25/67 

JDJ 

*B 

Ob "5891) 

INCREMENT COUNT UNLACED 

10/25/67 

JDJ 

*B 

00 '5900 

GET CHARS COUNTED 

10/25/67 

JDJ 

«B 

00259101 

TEST IF PROPER NUMBER PUT 

10/25/67 

JDJ 

«B 

00 ’59200 

NO CONTINUE 

10/25/67 

JDJ 

*B 

00 59300 

NO, G0 GET M0RE DATA 

10/25/67 

JDJ 

*8 

00259400 

YES, TURN OFF COUNT C0NTR01O/25/67 

JDJ 

*B 

00259500 

SET SW T0 2ER0 

10/25/67 

JDJ 

*B 

00259600 

exit from subroutine 

10/25/67 

JDJ 

*B 

00259700 

POSITION IT 



*D 

00&98Q0 

SET CONDITIONAL ASSEMBLY 

FLAG 


»D 

00359900 

CONTINUE 



*D 

00260000 




*D 

00260100 

INCREMENT UNLACE COUNTER 

10/25/67 

JDJ 

«B 

00260200 

GET NEXT CHAR FROM STRING 

10/25/67 

JDJ 

*B 

00260300 

IS DIGIT IN LIMITS 

10/25/67 

JDJ 

*B 

00260400 

NO valid 

10/25/67 

JDJ 

*B 

00260500 

no valid continue 

10/25/67 

JDJ 

*B 

00260600 

ERROR ON PAR NUMBER 

10/25/67 

JDJ 

«B 

00260700 
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Q44004E 


02606 

05055 

03100541 


STA 

PNUM 

02609 

05056 

12105147 


SPB 

SCPL 

02610 

05057 

11105074 


BRU 

DCM7 

02611 

05060 

12105175 

DCM8 

SPB 

GPLT 

02612 

05061 

12105114 


SPB 

PDEL 

02613 

05062 

11105064 


BRU 

• + 2 

02614 

05063 

11105007 


BRU 

DCM1 

02615 

05064 

12104764 


SPB 

PI MG 

02616 

05065 

11105060 


BRU 

DCM8 

02617 

05066 

12104764 

DCM5 

SPB 

P I MG 

02618 

05067 

14100576 


IMS 

DCUN 

02619 

05070 

12105127 


SPB 

UNLA 

02620 

05071 

15000020 


CMA 

*16 

02621 

05072 

60000033 


N0P 


02622 

05073 

11105077 


BRU 

DCM9 

02623 

05074 

12102330 

DC*7 

SPB 

FWER 

02624 

05075 

01000272 


LAA 

*•272 

02625 

05076 

11105032 


BRU 

DC1Q 

02626 

05077 

12105215 

DCM9 

SPB 

G4BD 

02627 

05100 

01077775 


LAA 

**3 

02628 

05101 

03100601 


STA 

DCAS 

02629 

05102 

02100545 

DC11 

lba 

taxx 

02630 

05103 

00000003 


CLA 


02631 

05104 

00000413 


FLU 

4 

0263? 

05105 

04100545 


STB 

TAXX 

02633 

05106 

05000060 


AMA 

* * 60 

02634 

05107 

12105235 


SPB 

T6A8 

02635 

05110 

12104764 


SPB 

P IMG 

02636 

05111. 

14100601 


IMS 

DCAS 

02637 

05112 

11105102 


BRU 

DCH 

02638 

05113 

11105007 


BRU 

DCM1 

02639 



« 



02640 



« 



02641 



• SUBR0UTINE PD 

02642 

05114 

25400000 

PDEL 

DAC 

0 

02643 

05115 

15000254 


CMA 

*•254 
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SET DESIRED PAR NUMBER 

10/25/67 

JDJ 

#B 

00260800 

FIND PAR NUMBER IN PNUM 

10/25/67 

JDJ 

• B 

0 0260900 

ERR0R N0T IN GIVEN LIST 

10/25/67 

JDJ 

• B 

00261000 

GET PAR INF0 FR0M LIST 

10/25/67 

JDJ 

*B 

00261100 

G0 TEST F0R DELIMITER 

11/08/67 

JDJ 

*B 

00261200 

N0 CONTINUE 

10/25/67 

JDJ 


00261300 

YES END 0F PAR NUMBER XX 

10/25/67 

JDJ 

*B 

00261400 

OUTPUT PAR T0 GIVEN FIELD 

10/25/67 

JDJ 

*B 

00261500 

G0 GET MORE 0F PARAMETER 

10/25/67 

JDJ 

#8 

00261600 

OUTPUT NORMAL CHAR 

10/25/67 

JDJ 

*B 

00261700 

increment unlace counter 

10/25/67 

JDJ 

• B 

00261800 

GET NEXT CHAR 

10/25/67 

JDJ 

• B 

00261900 

IS value internal T0 big 

10/25/67 

JDJ 

• B 

00262000 

N0 CONTINUE 

10/25/67 

JDJ 

• B 

00262100 

N0 valid continue 

10/25/67 

JDJ 

• B 


ERR0R IN INTERNAL LABEL 

10/25/67 

JDJ 

• B 

00 

LOAD A WITH A COLON ILLGl 

10/25/67 

JDJ 

»B 

oo; 

GO OUTPUT CHAR AS NO GOOD 

10/25/67 

JDJ 

«B 

oo: 

GO GET THE INTERNAL LAVEL 

10/25/67 

JDJ 

• B 

Ou. 62 . 

SET ASCII BASE 

10/25/67 

JDJ 

*B 

00262* 

COUNTER TO LOOP 3 TIMES 

10/25/67 

JDJ 

• B 

00262b- 

GET HUNDREDS# TENS, UNITS 

10/25/67 

JDJ 

«B 

00262900 

HERO ACCUM FIELD 

11/17/67 

JDJ 

• B 

00263000 

POSITION TO BIAS 

10/25/67 

JDJ 

*B 

00263100 

RESTORE WITH TENS, UNITS 

10/25/67 

JDJ 

• B 

00263200 

CONVERT TO NUMERIC BASE 

10/25/67 

JDJ 

*B 

00263300 

CONVERT TO FULL ASCII 

10/25/67 

JDJ 

«B 

00263400 

OUTPUT CHAR GENERATED 

10/25/67 

JDJ 

• B 

00263500 

INCREMENT LOOP COUNTER 

10/25/67 

JDJ 

*8 

00263600 

NO CONTINUE 

10/25/67 

JDJ 

• B 

00263700 

YES 3 HAVE BEEN OUTPUT 

10/25/67 

JDJ 

• B 

00263800 


10/25/67 

JDJ 

• B 

00263900 


11/08/67 

JDJ 

• B 

00264000 

TEST FOR,() AND BRANCH 

11/08/67 

JDJ 

*B 

00264100 

ENTER SUBROUTINE 

11/08/67 

JDJ 

• B 

00264200 

TEST FOR A COMMA 

11/08/67 

JDJ 

*B 

00264300 
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02644 

05116 

11105120 


BRU 

• ♦2 


N0 


11/08/67 

JDJ 

*B 

0 0 2 6 0 0 

02645 

05117 

U105125 


BRU 

PDE1 


YES, SET EXIT 


11/08/67 

JDJ 

*B 

00264500 

02646 

05120 

15000250 


CMA 

• '250 


TEST F0R LEFT PARN 


11/08/67 

JDJ 

*B 

00264600 

02647 

05121 

11105123 


BRU 

*♦2 


N0 


11/08/67 

JDJ 

*B 

00264700 

02648 

05122 

11105125 


BRU 

PDE1 


YES, SET EXIT 


11/08/67 

JDJ 

*B 

0 n 264800 

02649 

05123 

15000251 


CMA 

• '251 


TEST F0R RIGHT PARN 


11/08/67 

JDJ 

*B 

00264900 

02650 

05124 

11105126 


BRU 

#♦2 


N0 N 


11/08/67 

JDJ 

«B 

00265000 

02651 

05125 

14105114 

PDE1 

IMS 

PDEL 


YES, SET EXIT 


11/08/67 

JDJ 

*B 

00265100 

02652 

05126 

11305114 


BRU* 

PDEL 


N0, EXIT N0RMAL 


11/08/67 

JDJ 

*B 

00265200 

02653 



«■ 






10/23/67 

JDJ 

*B 

00265300 

02654 



* SUBR0UTINE UNLA, 

T 0 

GET THE NEXT 8 BIT CHAR 

10/23/67 

JDJ 

• B 

00265400 

02655 



ft 






10/23/67 

JDJ 

• B 

002$5500 

02656 

05127 

25400000 

UNLA 

DAC 

0 


ENTER SUBR0UTINE 


10/23/67 

JDJ 

*B 

00265600 

02657 

05130 

02104401 


LBA 

ULAD 


SET INDEX T0 ABS ADDRESS 

10/23/67 

JDJ 

• B • 

00265700 

02658 

05131 

01100540 

s 

LAA 

U8BT 


GET LH-RH FLIP-FL0P 

SW 

10/23/67 

JDJ 

*B 

0 '■>265800 

02659 

05132 

00000022 


SA2 



Os BITS 0-7 


10/23/67 

JDJ 

*B 

0 0 

:659 

02660 

05133 

11105141 


BRU 

UNL1 


-Is BITS 8-15 


10/23/67 

JDJ 

*B 

00 

’66 c, 

02661 

05134 

01077777 


LAA 

*•1 


SET FLIP-FL0P T0 RH 

W0RD 

10/23/67 

JDJ 

• B 

0 0 . 

661' 

02662 

05135 

03100540 


STA 

U8BT 


0F BITS 8-15 


10/23/67 

JDJ 

• B 

OC '■ 

;662" 

02663 

05136 

01400000 


LAA 

0.1 


BASE 0 PLUS ABS P0SITI0N 

10/23/67 

JDJ 

*8 

00 

6630, 

02664 

05137 

00001015 

UNL2 

RSL 

8 


P0SITI0N LH T0 BITS 

8-15 

10/23/67 

JDJ 

• B 

00: 

:6640C 

02665 

05140 

11305127 


BRU* 

UNLA 


EXIT FR0M SUBR0UTINE 

10/23/67 

JDJ 

• B 

00 

’66500 

02666 

05141 

00000003 

UNL1 

cla 



SET FLIP-FLOP T0 RH 

0FF 

10/23/67 

JDJ 

«B 

00266600 

02667 

05142 

03100540 


STA 

U8BT 


SAME W0RD 


10/23/67 

JDJ 

*B 

00266700 

02668 

05143 

01400000 


LAA 

0,1 


GET FULL W0RD 


10/23/67 

JDJ 

*B 

00266800 

02669 

05144 

14104401 


IMS 

ULAD 


P0INT T0 NEXT FULL W0RD 

10/23/67 

JDJ 

*B 

oo; 

[66900 

02670 

05145 

00001016 


LSL 

8 


SHIFT 0FF BITS 0-7 


10/23/67 

JDJ 

*8 

oo: 

»7000 

02671 

05146 

11105137 


BRU 

UNL2 


G0 P0SITI0N 8-15 T0 

00 

« 

H 

10/23/67 

JDJ 

• B 

oo; 

IS7100 

02672 









10/23/67 

JDJ 


oo; 

[47200 

02673 



« 






10/23/67 

JDJ 

*B 

oo; 

[§7300 

02674 



* SUBR0UT 

INE SCPL, 

T0 

L0CATE PARAMETER NUMBER XX 

10/23/67 

JDJ 

*B 

00287400 

02675 

05147 

25400000 

SCPL 

DAC 

0 


ENTER SUBR0UTINE 


10/23/67 

JDJ 

*B 

00267500 

02676 

05150 

00000003 


CLA 



SET D0U8LE W0RD 


10/23/67 

JDJ 

*B 

00267600 

02677 

05151 

03100537 


STA 

F8PB 


FLIP-FL0P T0 LH F0R 

gplt 

10/23/67 

JDJ 

*B 

00267700 

02678 

05152 

03105173 


STA 

SCP1 


EER0 PAR C0UNT 


10/23/67 

JDJ 

*B 

00267800 

02679 

05153 

03104400 


STA 

RPAD 


ZER0 REL PAR L0CATI0N 

11/17/67 

JDJ 

• B 

00267900 
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02680 

05154 

01077702 


LAA 

*-62 

SET THE END 0F A CARD 

10/23/67 

JDJ 

• B 

fH268000 

02681 

05155 

03105174 


STA 

SCP2 

INDICAT0R T0 BEG 0F CARD 

10/23/67 

JDJ 

• B 

00268100 

02682 

05156 

14105173 

SCP3 

IMS 

SCP1 

INCREMENT C0UNTER 

11/09/67 

JDJ 

• B 

00268200 

02683 

05157 

01105173 


LAA 

SCP1 

PAR C0UNTER 

10/23/67 

JDJ 

• B 

00268300 

02684 

05160 

15100541 


CMA 

PNUM 

TEST F0R DESIRED PAR 

10/23/67 

JDJ 

• B 

00268400 

02685 

05161 

11105164 


BRU 

*♦3 

G0 GET ELEMENT BY GPLT 

10/23/67 

JDJ 

*B 

00268500 

02686 

05162 

14105147 


IMS 

SCPL 

SET EXIT AS VALID PAR 

10/23/67 

JDJ 

*B 

00268600 

02687 

05163 

11305147 


BRU* 

SCPL 

EXIT AS AN ERR0R C0NDITI0N1O/23/67 

JDJ 

*B 

00268700 

02688 

05164 

12105175 

SCP4 

spb 

GPLT 

G0 GET CHAR FR0M PAR LIST 

10/23/67 

JDJ 

*B 

00268800 

0268? ' 

05165 

14105174 


IMS 

5 CP 2 

TEST F0R END 0F CARD- 

10/23/67 

JDJ 

*B 

00268900- 

02690 

05166 

11105170 


BRU 

• *2 

TEST DELIMITER 

11/15/67 

JDJ 

*B 

00269000 

02691 

05167 

11305147 


BRU* 

SCPL 

exit as errbr 

11/15/67 

JDJ 

*B 

00269100 

02692 

05170 

12105114 


SPB 

PDEL 

G0 TEST F0R DELIMITER 

11/08/67 

JDJ 

• B 

00269200 

02693 

05171 

11105164 


BRU 

SCP4 

G0 SEARCH F0R A C0MMA 

10/23/67 

JDJ 

*B 

00269300 

02694 

05172 

11105156 


BRU 

SCP3 

F0UND C0MMA, IS IT WANTED 

10/23/67 

JDJ 

*B . 

0^969400 

02695 

05173 

00000000 

SCP1 

DATA 

0 

TEMP PAR C0UNTER 

10/23/67 

JDJ 

• B 

Ot 

02696 

05174 

00000000 

SCP2 

DATA 

0 

TEMP END 0F CARD INDICAT0R1O/23/67 

JDJ 

*B 

00 

02697 



« 




10/23/67 

JDJ 

*B 

00 

02698 



* SUBR0UTIME GPLT, 

T0 GET THE PARAMETER F0R USAGE 

10/23/67 

JDJ 

*B 

0026. 

02699 



* 




10/23/67 

JDJ 

• B 

0 0 2 6 9 

02700 

05175 

25400000 

GPLT 

DAC 

0 

ENTER SUBR0UTINE 

10/23/67 

JDJ 

• B 

002700 

02701 

05176 

02104400 


lba 

RPAD 

SET INDEX T0 REL PAR ADR 

10/23/67 

JDJ 

*B 

0027Q100 

02702 

05177 

01100537 


LAA 

F8PB 

GET FLIP-FL0P SWITCH BITS 

10/23/67 

JDJ 

«B 

0027020C 

02703 

05200 

00000022 


SAZ 


TEST IF 0«BITS 0-7 

10/23/67 

JDJ 

*B 

00270300 

02704 

05201 

11105207 


BRU 

GPU 

-1*BITS 8-15 

10/23/67 

JDJ 

*B 

00270400 

02705 

05202 

01077777 


LAA 

*•1 

SET FLIP-FL0P T0 RH W0RD 

10/23/67 

JDJ 

«B 

00270500 

02706 

05203 

03100537 


STA 

F8PB 

0F BITS 8-15 

10/23/67 

JDJ 

• B 

00270600 

02707 

05204 

01512045 


LAA 

PLST♦1 

GET D0UBLE W0RD FR0M LIST 

10/23/67 

JDJ 

«B 

00270700 

02708 

05205 

00001015 

GP12 

RSL 

8 

P0SITI0N BITS 0-7 T0 8-15 

10/23/67 

JDJ 

• B 

00270800 

02709 

05206 

11305175 


BRU* 

GPLT 

EXIT FR0M SUBR0UTINE 

10/23/67 

JDJ 

• B 

00270900 

02710 

05207 

00000003 

GPU 

CL A 


SET FLIP-FL0P T0 BITS 0-7 

10/23/67 

JDJ 

»B 

00271000 

02711 

05210 

03100537 


STA 

F8PB 

0F THE NEXT FULL W0RD 

10/23/67 

JDJ 

*B 

00271100 

02712 

05211 

01512045 


LAA 

PLST»1 

GET D0UBLE W0RD 

10/23/67 

JDJ 

• B 

00271200 

02713 

05212 

14104400 


IMS 

RPAD 

SET P0INTER T0 NEXT W0RD 

10/23/67 

JDJ 

«B 

00271300 

02714 

05213 

00001016 


LSL 

8 

SHIFT 0FF BITS 0-7 

10/23/67 

JDJ 

*B 

00271400 

02715 

05214 

11105205 


BRU 

GPL2 

G0 P0SITI0N W0RD 

10/23/67 

JDJ 

*B 

00271500 
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'n 


02716 



# 





10/23/67 

JDJ 

*B 

u U271600 

02717 



» 

SUBROUTINE G4BD 

T0 RETRIEVE THE INTERVAL SYMBL 

10/23/67 

JDJ 

*B 

00271700 

Q2718 

05215 

25400000 

G4BD 

DAC 

0 

ENTER SUBROUTINE 

10/23/67 

JDJ 

*B 

00271800 

02719 

05216 

00000005 



TAB 


SAVE A IN B 

10/23/67 

JDJ 

• B 

00271900 

02720 

05217 

01100543 



LAA 

A999 

GET INTERVAL 0VERFL0W FIG 

10/23/67 

JDJ 

*B 

0u272000 

02721 

05220 

00000024 



SAP 


O*N0 ERR0R YET 

10/23/67 

JDJ 


00272100 

02722 

05221 

11105232 



BRU 

G4B1 

PR0CESS Error situation 

10/23/67 

JDJ 

*B 

00272200 

02723 

05222 

00000004 

G4B2 

TBA 


VALID, RESTORE A 

10/23/67 

JDJ 

• B 

00272300 

02724 

05223 

15100544 



CMA 

HPXX 

TEST F0R NEXT HIGHEST ASN 

10/23/67 

JDJ 

«B 

00272400 

02725 

05224 

00000033 



N0P 


NO, CONTINUE 

10/23/67 

JDJ 

• 8 

00272500 

02726 

05225 

11105227 



BRU 

*♦2 

N0, SAME 

10/23/67 

JDJ 

*B 

002|2600 

02727 

05226 

03100544 



STA 

MPXX 

ASSUME THE NEW VALUE 

10/23/67 

JDJ 

#B 

00272700 

02728 

05227 

01512250 



LAA 

AHTU.l 

GET INTERNAL LABEL 

10/23/67 

JDJ 

• B 

. 00272800 

02729 

05230 

03100545 



STA 

TAXX 

STORE LABEL IN TEMP W0RK 

10/23/67 

JDJ 

• B 

00272900 

02730 

05231 

11305215 


s 

BRU* 

G4BD 

EXIT FR0M SUBROUTINE 

10/23/67 

JDJ 

*B 

Ol' ^7300 0 

02731 

05232 

02000000 

G4B1 

LBA 

*0 

CLEAR B T0 PRODUCE ERR0R 

10/23/67 

JDJ 

• B 

00 ’73i n . 

02732 

05233 

12102330 



SPB 

fwer 

SET THE ERROR FLAG 

10/23/67 

JDJ 

• B 

00273200 

02733 

05234 

11105222 



BRU 

G4B2 

RETURN T0 MAIN SUB FL0W 

10/23/67 

JDJ 

• B 

0027330 

02734 








10/23/67 

JDJ 

• B 

00 .7340 

02735 



* 

SUBROUT 

INE T0 C0NVERT T0 8 BIT ASCII 

10/23/67 

JDJ 

• B 

0 0 ’73501 

02736 



« 





10/23/67 

JDJ 

*B 

00273600 

02737 

05235 

25400000 

T6A8 

DAC 

0 

ENTER SUBROUTINE 

10/23/67 

JDJ 

*B 

00273700 

02736 

05236 

15000037 



CMA 

s * 37 

TEST FOR BIAS P01NT 

10/23/67 

JDJ 

• B 

00273800 

02739 

05237 

00000033 



N0P 



10/23/67 

JDJ 

*B 

00273900 

02740 

05240 

11105243 



BRU 

**3 

NUMBER OR SPECIAL 

10/23/67 

JDJ 

*B 

00^74000 

02741 

05241 

05000200 



AMA 

**200 

ADD ASCII BASE 

10/23/67 

JDJ 

• 6 

00174100 

02742 

05242 

11305235 



BRU* 

T6A8 

EXIT FROM SUBROUTINE 

10/23/67 

JDJ 

♦ B 

00274200 

02743 

05243 

05000300 



AMA 

s * 300 

ADD BASE ALPHA 

10/23/67 

JDJ 

*B 

00274300 

02744 

05244 

11305235 



BRU* 

T6A8 

EXIT FROM SUBROUTINE 

10/23/67 

JDJ 

• B 

00214400 

02745 



e 





10/23/67 

JDJ 

• B 

00274500 

02746 



• 

SUBR0UTINE CMCR, 

TO SET END OF MACRO INDICATOR 

10/23/67 

JDJ 

*B 

00274600 

02747 

05245 

25400000 

CMCR 

DAC 

0 

ENTER SUBROUTINE 

10/23/67 

JDJ 

*B 

00274700 

02748 

05246 

01100546 



LAA 

NATF 

NAME TABLE OVERFLOW SW 

10/23/67 

JDJ 

• B 

00274800 

02749 

05247 

00000024 



SAP 


O*N0 ERR0R 

10/23/67 

JDJ 

»B 

00274900 

02750 

05250 

1H05255 



BRU 

CMC1 

-1* ERROR 

10/23/67 

JDJ 

• B 

00275000 

02751 

05251 

02104404 



LBA 

PDAD 

GET NEXT PROTO PACK ADR 

10/23/67 

JDJ 

• B 

00275100 
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02752 

05252 

01000001 


LAA 

= 1 

SETUP T0 ST0RE SENTIANEL 

10/23/67 

JDJ 


00275200 

02753 

05253 

03400000 


STA 

0,1 

ST0RE E0M INDICATOR 

10/23/67 

JDJ 

#B 

00275300 

02754 

05254 

14104404 


IMS 

PDAD 

SET PACK ADR T0 NX FL WD 

10/23/67 

JDJ 

*B 

00275400 

02755 

05255 

00000003 

CMC1 

CLA 


SET MACR0 IN-PR0CESS 

10/23/67 

JDJ 

#B 

00275500 

02756 

05256 

03100605 


STA 

M I NP 

INDICAT0R T0 0N 

10/23/67 

JDJ 

«B 

00275600 

02757 

05257 

11305245 


BRU* 

CMCR 

EXIT FR0M SUBROUTINE 

10/23/67 

JDJ 

• B 

00275700 

02756 



« 




10/23/67 

JDJ 

*B 

00275800 

02759 



* SUBROUTINE MLAB, 

TO ADD-0N 0R SEARCH A NAME TAB 

10/24/67 

JDJ 

• 8 

00275900 

02760 

05260 

25400000 

MLAB 

DAC 

0 

ENTER SUBROUTINE 

10/24/67 

JDJ 

*8 

00276000 

02761 

05261 

00000024 


SAP 


TEST ADD-0N INDICATOR 

10/24/67 

JDJ 

»B 

00276100 

02762 

05262 

11105266 


BRU 

MLAI 

G0 SET UNDEFINED IND 0 

10/24/67 

JDJ 

»B 

00276200 

02763 

05263 

01100546 


LAA 

NATF 

GET NAME TABL FULL IND 

10/24/67 

JDJ 

*B 

00276300 

02764 

05264 

00000024 


SAP 


TEST F0R ERR0R SITUATION 

10/24/67 

JDJ 

• B 

00276400 

02765 

05265 

11105302 


BRU 

MLA2 

G0 SET N0 PROCESS T0 0N 

10/24/67 

JDJ 

«B 

00276500 

02766 

05266 

00000003 

MLAi 

CLA 


CLEAR UNDEFINED 

10/24/67 

JDJ 

• B 

00276600 

02767 

05267 

03100567 


STA 

UDMR 

TURN 0FF UNDEFINED 

10/24/67 

JDJ 

#8 

0 0: 

02768 

05270 

01104410 

N 

LAA 

BANT 

BEG ABS ADR 0F MACRO NAME 

10/24/67 

JDJ 

*B 

00? 

02769 

05271 

00000005 


JAB 


SAVE ANS SET INDEX 

10/24/67 

JDJ 

*8 

0 0? . 

02770 

05272 

15112247 

MLA8 

CMA 

ETMP 

TEST FOR END 0F MACRO NAM 

10/24/67 

JDJ 

#B 

0 02,'/. ;; 

02771 

05273 

11105306 


BRU 

MLA3 

G0 TEST F0R END 0F ASGNMT 

10/24/67 

JDJ 

• B 

0027710. 

02772 

05274 

00000033 


NOP 


YES 

10/24/67 

JDJ 

*B 

0027720! 

02773 

05275 

01100564 


LAA 

AD0N 

YES, TEST F0R ADD-ON 

10/24/67 

JDJ 

«B 

00277300 

02774 

05276 

00000024 


SAP 


0*YES ADD-0N M0DE 

10/24/67 

JDJ 

*B 

00277400 

02775 

05277 

11105304 


BRU 

MLA4 

-1*N0, THE SEARCH M0DE 

10/24/67 

JDJ 

*B 

00277500 

02776 

05300 

01077777 


LAA 

s-1 

SETUP T0 TURN 0N 

10/24/67 

JDJ 

«B 

00277600 

02777 

05301 

03100546 


STA 

NATF 

TEH NAME TABLE FULL IND 

10/24/67 

JDJ 

*B 

00277700 

02778 

05302 

03100565 

MLA2 

STA 

N0PR 

TURN 0N THE N0 PROCESS 

10/24/67 

JDJ 

*B 

00277800 

02779 

05303 

11305260 

MLA5 

BRU* 

MLAB 

EXIT FROM SUBROUTINE 

10/24/67 

JDJ 

• B 

00277900 

02780 

05304 

03100567 

ML A4 

STA 

UDMR 

SET THE UNDEFINDED IND 0N 

10/24/67 

JDJ 

• B 

00278000 

02781 

05305 

11105303 


BRU 

MLA5 

EXIT 

10/24/67 

JDJ 

• B 

00278100 

02782 

05306 

15104407 

MLA3 

CMA 

lanl 

LAST ADDRESS ASSIGNED 

10/24/67 

JDJ 

• B 

00278200 

02783 

05307 

11105326 


BRU 

MLA6 

G0 TEST NAME FOR MATCH 

10/24/67 

JDJ 

#8 

00278300 

02784 

05310 

00000033 


N0P 



10/24/67 

JDJ 


00278400 

02785 

05311 

00000006 


I AB 


MOVE ADR T0 INDEX ABS 

10/24/67 

JDJ 


00278500 

02786 

05312 

01100564 


LAA 

AD0N 

GET ADD-ON INDICATOR 

10/24/67 

JDJ 


*800278600 

02787 

05313 

00000024 


SAP 


0sADD-0N MODE 

10/24/67 

JDJ 

*B 

00278700 
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02788 

05314 

11105304 


BRU 

MLA4 

-IsSEARCH M0DE 

10/24/67 

JDJ 

«B 

0U278800 

02789 

05315 

01100056 


laa 

NSRH 

GET LEFT HALF 0F NAME 

10/24/67 

JDJ 

• B 

00278900 

02790 

05316 

03400000 


STA 

Oil 

ST0RE IN TABLE 

10/24/67 

JDJ 

• B 

OP279000 

02791 

05317 

01100057 


LAA 

NSRH*1 

GET RIGHT HALF 

10/24/67 

JDJ 

«B 

0CB79100 

02792 

05320 

03400001 


STA 

lil 

ST0RE IN RIGHT HALF 

10/24/67 

JDJ 

«B 

00279200 

02793 

05321 

01104404 


LAA 

PDAD 

ABS ADR-0F NEXT CTL W0RD 

10/24/67 

JDJ 

• B 

00279300 

02794 

05322 

03400002 


STA 

2,1 

ST0RE IN TAB ADR NX CTL 

10/24/67 

JDJ 

• 8 

00279400 

02795 

05323 

16000003 


AMB 

*3 

INCREMENT B BY 3 T0 NX WD 

10/24/67 

JDJ 

*B 

00279500 

02796 

05324 

04104407 


STB 

LANL 

ST0RE MACR0 NAME LAST ASN 

10/24/67 

JDJ 

• B 

00279600 

02797 

05325 

11105303 


BRU 

MLA5 

EXIT 

10/24/67 

JDJ 


00379700 

02798 

05326 

00000006 

MLA6 

IAB 


N0VE ADR T0 INDEX 

10/24/67 

JDJ 

«B 

00279800 

02799 

05327 

01100056 


LAA 

NSRH 

GET LH 0F NAME CHARS 1,2 

10/24/67 

JDJ 

• B 

002*9900 

02800 

05330 

15400000 


CMA 

0,1 

TEST F0R MATCH 

10/24/67 

JDJ 

• B 

. 00280000 

02801 

05331 

11105333 


8BU 

• *2 

N0T F0UND 

10/24/67 

JDJ 

• B 

00280100 

0^802 

05332 

11105336 

\ 

BRU 

MLA7 

LEFT HALF EQUAL CHAR 1,2 

10/24/67 

JDJ 

• B 

ou: > Q 0200 

02803 

05333 

16000003 

MLA9 

AMB 

93 

SET INDEX T0 NEXT CELLS 

10/24/67 

JDJ 

«B 

00 803C 

02804 

05334 

00000006 


IAB 


SNAP VALUE AND INDEX 

10/24/67 

JDJ 

• B 

00 *804r 

02805 

05335 

ill05272 


BRU 

MLA8 

G0 TEST F0R END 0F TABLE 

10/24/67 

JDJ 

• B 

00 305n- 

02806 

05336 

01100057 

MLA7 

LAA 

NSRH+1 

GET RIGHT HALF NAME 3,4 

10/24/67 

JDJ 

«B 

00 8060 

02807 

05337 

15400001 


CMA 

1,1 

RIGHT HALF 0F TABLE 

10/24/67 

JDJ- 

• B 

00 '80700 

02808 

05340 

11105333 


BRU 

MLA9 

N0, G0 TEST E0T 

10/24/67 

JDJ 

»B 

00:’8080u 

02809 

05341 

11105343 


BRU 

*♦2 

YES, TEST M0DE 

10/24/67 

JDJ 

• B 

00^80900 

02810 

05342 

11105333 


BRU 

MLA9 

N0, G0 TEST E0T 

10/24/67 

JDJ 

• B 

002B1Q00 

02811 

05343 

01100564 


LAA 

AD0N 

GET ADD-0N IND 

10/24/67 

JDJ 

■ B 

00281100 

02812 

05344 

00000024 


SAP 


O»ADD-0N 

10/24/67 

JDJ 

• B 

00261200 

02813 

05345 

11105355 


BRU 

ML10 

-IsSEARCH, G0 MULTI DEF 

10/24/67 

JDJ 

• B 

00361300 

02814 

05346 

01000000 


laa 

■’100000 

BIT 0 AS MULTI DEF IND 

10/24/67 

JDJ 

• B 

00291400 

02815 

05347 

04U2O41 


STB 

W0RK 

TEMP SAVE B 

10/24/67 

JDJ 

*Q 

00261500 

02816 

05350 

02400002 


LBA 

2,1 

GET ADR T0 MERGE MULTI 

10/24/67 

JDJ 

• B 

002^L600 

02817 

05351 

00000030 


0BA 


ADD IN MULTI DEFINED 

11/07/67 

JDJ 

#B 

0Q2flfil70G 

02818 

05352 

02112041 


lba 

W0RK 

RESTORE B 

10/24/67 

JDJ 

♦ B 

00281800 

02819 

05353 

03400002 


STA 

2,1 

STORE AS MULTI DEF 

11/28/67 

JDJ 

*B 

00281900 

02820 

05354 

11105302 


BRU 

MLA2 

G0 TURN 0N N0 PROCESS IND 

10/24/67 

JDJ 

«B 

00282000 

02821 

05355 

01400002 

MLl 0 

LAA 

2,1 

GET ADDRESS 0F CTL 

10/24/67 

JDJ 

• B 

00282100 

02822 

05356 

03100566 


STA 

mDmr 

ST0RE MAINLY BIT 0 AS IND 

10/24/67 

JDJ 

*B 

00282200 

02823 

05357 

00000116 


LSL 

1 

SHIFT 0FF SIGN 

10/24/67 

JDJ 

«B 

00282300 
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02824 

05360 

00000115 



RSL 

1 


BIT T0 2ER0 


10/24/67 

JDJ 

*B 

0o282400 

02825 

05361 

03104401 



STA 

ULAD 


TRANSFER ADR T0 UNLA 

SUBR 

10/24/67 

JDJ 

*B 

00282500 

02826 

05362 

11105303 



BRU 

MLA5 


EXIT 


10/24/67 

JDJ 

*B 

0U282600 

02827 










11/02/67 

JDJ 

*B 

0U282700 

02828 



ft 







10/24/67 

JDJ 

*B 

00282800 

02829 




SUBR0UTINE EM0P 

T 0 

TEST F0R 0P C0DE EMA-C 


11/02/67 

JDJ 

*B 

00282900 

02830 

05363 

25400000 

EM0P 

DAC 

0 


ENTER SUBR0UTINE 


11/02/67 

JDJ 

• B 

00283000 

02831 

05364 

12101117 



SPB 

GN0P 


GEN 0P C0DE 


11/14/67 

JDJ 

*B 

00283100 

02832 

05365 

11305363 



BRU* 

EM0P 


N0T ALPHA ERR0R 


11/14/67 

JDJ 

*B 

00283200 

02833 

05366 

15101217 



CM A 

EMCT 


ALPHA TEST F0R EMA 


11/14/67 

JDJ 

*B 

00283300 

02834 

05367 

11305363 



BRU* 

FM0P 


N0T EMA 


11/14/67 

JDJ 

*B 

00283400 

02835 

05370 

14105363 



IMS 

EM0P 


YES EMA 0P C0DE SET 

EXIT 

11/14/67 

JDJ 

*B 

00283500 

02836 

05371 

11305363 



BRU* 

EM0P 


N0T EMA C0NTINUE 


11/14/67 

JDJ 

*B 

00283600 

02837 



ft 







11/02/67 

JDJ 

• B 

00283700 

02838 



ft 

SUBROUTINE P4LC, 

T O 

PACK A NAME F0R SEARCHING 

10/23/67 

JDJ 

*B 

00283800 

02839 

05372 

25400000 

P4LC 

DAC 

0 


ENTER SUBR0UT1NE 


10/23/67 

JDJ 

«B 

0. 

02840 

05373 

02104403 


V 

LBA 

RCLM 


REL ADR 0F INPUT IMAGE 

10/23/67 

JDJ 


0! 

02841 

05374 

01500415 



laa 

BUF+11,1 


CHAR 1 


10/23/67 

JDJ 

*B 

OP 

02842 

05375 

00001016 



LSI 

8 


P0SITI0M CHAR 1 


10/23/67 

JDJ 

*B 

0 0 

02843 

05376 

05500416 



AHA 

RUF♦12*1 


CHAR 2 


10/23/67 

JDJ 

• B 

0 0 / J 4 L 

02844 

05377 

03100056 



STA 

NSRH 


ST0RE CHARS 1 AND 2 


10/23/67 

JDJ 

*0 

0028441 

02845 

05400 

01500417 



LAA 

BUF *13*1 


CHAR 3 


10/23/67 

JDJ 

*B 

002845QU 

02846 

05401 

00001016 



LSL 

8 


P0SITI0N CHAR 3 


10/23/67 

JDJ 

*B 

00284600 

02847 

05402 

05500420 



AMA 

BUF + 14,1 


CHAR 4 


10/23/67 

JDJ 

«B 

00284700 

02848 

05403 

03100057 



STA 

NSRH+1 


ST0RE CHARS 3 AND 4 


10/23/67 

JDJ 

*B 

00284800 

02849 

05404 

11305372 



BRU* 

P4LC 


EXIT FR0M SUBR0UTINE 


10/23/67 

JDJ 

«B 

00284900 

02850 



ft 







10/23/67 

JDJ 

*B 

00285000 

02851 

05405 

01100126 

MACR 

LAA 

PASS 


TEST F0R FINAL PASS 


11/02/67 

JDJ 

*B 

00285100 

02852 

05406 

00000022 



SA2 



0* FINAL 


11/02/67 

JDJ 


00285200 

02853 

05407 

11105413 



BRU 

*♦4 

N0 

N0N 2ER0 PASS 1 0F X 


11/02/67 

JDJ 

*B 

00285300 

02854 

05410 

01077777 



L.A A 

= -l 

YES FINAL PASS SET BY PASS 0N 

11/02/67 

JDJ 

*B 

00285400 

02855 

05411 

03100604 



STA 

MBYP 


ST0RE INDICAT0R 


11/15/67 

JDJ 

*B 

00285500 

02856 

05412 

11105460 



BRU 

MBE3 


MACR0 BY PASS 0N 


11/02/67 

JDJ 

*B 

00285600 

02857 

05413 

01000001 



LAA 

*1 


SET P4LC T0 


11/02/67 

JDJ 

*8 

00285700 

02858 

05414 

03104403 



STA 

RCLM 


ST0RE L0CATI0N IN 2 

W0RDS 

11/02/67 

JDJ 

*B 

00285800 

02859 

05415 

12105372 



SPB 

P4LC 


PACK THE L0CATI0N FIELD 

11/02/67 

JDJ 

*B 

00285900 
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02860 

05416 

00000003 


CLA 


02861 

05417 

03100564 


STA 

AD0N 

02862 

05420 

12105260 


SPB 

MLAB 

02863 

05421 

01077777 


LAA 

5-1 

02864 

05422 

03100605 


STA 

MINP 

02865 

05423 

11100702 


BRU 

EX02 

02866 

05424 

12105363 

MISP 

SPB 

EM0P 

02867 

05425 

lli0543Q 


BRU 

**3 

02868 

05426 

12105245 


SPB 

CMCR 

02869 

05427 

11100702 


BRU 

EX02 

02870 

05430 

01100565 


LA A 

N0PR 

02871 

05431 

00000023 


SAN 


02872 

05432 

12103756 


SPB 

STDS 

02873 

05433 

11100702 


BRU 

EX02 

02874 

05434 

01000006 

MBE£ 

LAA 

*6 

02875 

05435 

03104403 


STA 

RCLM 

02876 

05436 

12105372 


SPB 

P4LC 

02877 

05437 

01077777 


LAA 

«-l 

02878 

05440 

03100564 


STA 

AD0N 

02879. 

05441 

12105260 


SPB 

MLAB 

02880 

05442 

12102630 


SPB 

LABP 

02881 

05443 

01100566 


LAA 

MDMR 

02882 

05444 

00000024 


SAP 


02883 

05445 

11105454 


BRU 

MBEl 

02884 

05446 

Qli00567 


LAA 

udmr 

02885 

05447 

00000023 


SAN 


02886 

05450 

11105456 


BRU 

MBE2 

02887 

05451 

01000325 


LAA 

**325 

02888 

05452 

03100404 


STA 

BUF + 2 

02889 

05453 

11105460 


BRU 

MBE3 

02890 

05454 

01000315 

MBEl 

LAA 

**315 

02891 

05455 

03100404 


STA 

BUF*2 

02892 

05456 

01077777 

M8E2 

LAA 

»*1 

02893 

05457 

03100603 


STA 

EXPN 

02894 

05460 

12101614 

MBE3 

SPB 

LIN 

02895 

05461 

11100702 


BRU 

EX02 


01/20/71 PAGE 


81 


SET MLAB T0 

11/02/67 

JDJ 

*B 

0:286000 

THE ADD-0N M0DE 

11/02/67 

JDJ 


CO286100 

ADD C0LS 1-4 T0 THE MACR0 

11/02/67 

JDJ 

«B 

00286200 

SET MACR0 IN ST0RAGE 

11/02/67 

JDJ 


00286300 

PR0CESS T0 0N s - 1 

11/02/67 

JDJ 

«B 

0L286400 

G0 GET M0RE S0URCE INPUT 

li/02/67 

JDJ 

«B 

00286500 

TEST F0R EMA-C 0P C0DE 

11/02/67 

JDJ 

• B 

00286600 

N0T EMA-C, TEST N0 PR0CESS11/O2/67 

JDJ 

«B 

00286700 

YES, EMA-C CL0SE 0UT 

11/02/67 

JDJ 

«B 

00286800 

G0 GET S0URCE INPUT 

11/02/67 

JDJ 

• B 

00286900 

GET N0 PR0CESS ERR0R SW 

11/02/67 

JDJ 

«B 

00387000 

-1 MEANS YES ERR0R C0ND 

11/02/67 

JDJ 

»B 

00287100 

PACK THE MACR LINE 

11/02/67 

JDJ 

«B 

00287200 

G0 GET M0RE S0URCE INPUT 

11/02/67 

JDJ 

»B 

'00287300 

SET P4LC T0 C0L 6 0P C0DE 

11/02/67 

JDJ 

«B 

0 ^87400 

T0 NAME 0F MACR0 

11/02/67 

JDJ 

«B 

00 875 " 

PACK THE NAME F0R MLAB 

11/02/67 

JDJ 

• B 

Of 876'J 

SET MLAB T0 SEARCH EXTRACT11/02/67 

JDJ 

«B 

00 3770' 

M0DE 0F L00K-UP 

11/02/67 

JDJ 

*B 

00 8780 

G0 FIND NAME 

11/02/67 

JDJ 

• 8 

00/8790i 

G0 ASSIGN L0C A VALUE 

11/02/67 

JDJ 

♦ B 

00 88000 

GET MULTI DEFINED IND 

11/02/67 

JDJ 

• B 

80 8810Q 

PLUS N0T MULTI DEF 

11/02/67 

JDJ 

• B 

00288200 

MINUS IT IS MULTI DEF 

11/02/67 

JDJ 

«B 

00288300 

UNDEFINED INDICAT0R 

11/02/67 

JDJ 

• B 

00288400 

PLUS DEFINED 

11/02/67 

JDJ 

• B 

00288500 

MINUS UNDEFINED 

11/02/67 

JDJ 


00388600 

U ERR0R C0DE 

11/02/67 

JDJ 

*B 

00^8700 

SET ERR0R FLAG 

11/02/67 

JDJ 

#B 

00248800 


11/02/67 

JDJ 

«B 

002*8900 

M ERR0R C0DE 

11/02/67 

JDJ 

• B 

00289000 

ST0RE ERR0R FLAG 

11/02/67 

JDJ 

#8 

00289100 

SET EXPAND SW T0 0N 

11/02/67 

JDJ 

#0 

00289200 

-1 IS 0N# 0 IS 0FF 

11/02/67 

JDJ 

• B 

00289300 

LIST THE LINE 0F MACR0 

11/02/67 

JDJ 

«B 

00289400 

G0 SET-UP T0 EXPAND STATE 

11/02/67 

JDJ 


00289500 
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02896 

05462 

12104566 

MBE4 

SP6 

EMPT 

EXPAND ENTIRE HACR0 

11/02/67 

JDJ 

«B 

: 289^.00 

02897 

05463 

11100741 



BRU 

0PER 

PR0CESS GENERATED 

01/13/68 

JDJ *C 


0289700 

02898 

05464 

11100702 



BRU 

EX02 

RETURN T0 IGN0RE E0M C0DE 

; 11/28/67 

JDJ 

*B 

01)289800 

02899 

05465 

12105363 

MBF5 

SPB 

EM0P 

TEST F0R EMA-C 

11/02/67 

JDJ 

*B 

00289900 

02900 

05466 

11105471 



BRU 

« + 3 

N0T EMA-C LIST LINE 

11/02/67 

JDJ 

«B 

00290000 

02901 

05467 

00000003 



CIA 


SET MACR0 BY PASS T0 0FF 

11/02/67 

JDJ 

• B 

00290100 

02902 

05470 

03100604 



STA 

MBYP 

ST0RE STATUS DESIRED 

11/02/67 

JDJ 

«B 

00290200 

02903 

05471 

02100020 



LBA 

ALN0 

GET L0CATI0N 0F LINE 

11/15/67 

JDJ 

*B 

00290300 

02904 

05472 

12101066 



SPB 

DAFA 

C0UNTER* INCR + 1 IN DECIMAL 

11/15/67 

JDJ 

«B 

00290400 

02905 

05473 

11105-460 



BRU 

MBE3 

G0 LIST MACR0 LINE 

11/02/67 

JDJ 

• B 

00290500 

02906 




FDAT PSEUD0 0PERATI0M 

1 PR0CESS0R 

09/20/67 

JDJ 


00290600 

02907 

05474 

00000003 

FDAT 

CLA 


SET FDAT 0UTPUT T0 N0T YE09/20/67 

JDJ 


00290700 

02908 

05475 

03105745 



STA 

F0UT 

ZER0 INDICAT0R 

09/20/67 

JDJ 


00290800 

02909 

05476 

03105741 



STA 

FDTB 

ZER0 TABLE C0UNTER 

09/20/67 

JDJ 


00290900 

02910 

05477 

02077770 



LBA 

SmQ 


09/20/67 

JDJ 


00291000 

02911 

05500 

03505716 



STA 

FV At * 81 1 

clear 

09/20/67 

JDJ 


Oi 1 00 

02912 

05501 

00000026 


V 

IBS 


FVAL 

09/20/67 

JDJ 


oc 

02913 

05502 

11105500 



BRU 

#•2 

TABLE T0 ZER0 

09/20/67 

JDJ 


00 ' 

02914 

05503 

01077777 



LAA 

s-1 -1 

SET DATA PR0CESS0R 

09/20/67 

JDJ 


0 0 , 

02915 

05504 

03105746 



STA 

FD0P 

T0 THE FDAT M0DE 

09/20/67 

JDJ 


0 0 291:; 

02916 

05505 

11105763 



BRU 

DAT1 

G0 PR0CESS THE FDAT 

09/20/67 

JDJ 


002916C 

02917 



» 





09/20/67 

JDJ 


0029170u 

02918 




SU8R0UTINE T0 C0MPUTE 

! FDAT W0RD AND 0UTPUT 

09/20/67 

JDJ 


00291800 

02919 



e 





09/20/67 

JDJ 


00291900 

02920 

05506 

00000000 

FOES 

*#• 

«« 

ENTER 

09/20/67 

JDJ 


00292000 

02921 

0550.7 

00000003 



CIA 


ZER0 INDICAT0RS, ETC 

09/20/67 

JDJ 


00292100 

02922 

05510 

03105742 



STA 

BITS 

TEMP FDAT W0RD IN PR0CESSO9/2O/67 

JDJ 


00292200 

02923 

05511 

03105741 



STA 

FDTB 

CLEAR C0UNT 0F ELEMENTS 

09/20/67 

JDJ 


00292300 

02924 

05512 

0-2105674 



LBA 

FNFL 

SET P0INTER T0 LAST W0RD 

09/20/67 

JDJ 


00292400 

02925 

05513 

04105705 



STB 

FDCT 

ST0RE C0UNT BACKWARDS 

09/20/67 

JDJ 


00292500 

02926 

05514 

01505674 

DA21 

LAA 

FSIZ-1#1 

GET SIZE 0F RIGHT FIELD 

09/20/67 

JDJ 


00292600 

02927 

05515 

00000022 



s'az 


TEST F0R EER0 LENGTH 

09/20/67 

JDJ 


00292700 

02928 

05516 

11105520 



BRU 

»*2 

N0 PR0CESS VALUE 

09/20/67 

JDJ 


00292800 

02929 

05517 

11105546 



BRU 

DA22 

IGN0RE ZER0 LENGTH FIELDS09/20/67 

JDJ 


00292900 

02930 

05520 

00000002 



NEG 


SET T0 MINUS 

09/20/67 

JDJ 


00293000 

02931 

05521 

05002000 



AMA 

s ’ 2000 

16 0FF SHIFTED BY LSL 0 

09/20/67 

JDJ 


00293100 
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I MACR0 

l-ASSEMBLER 

044004E 





01/20/71 

PAGE 

83 

02932 

05522 

00000021 


SAS 




TEST 16-LENGTH 

09/20/67 

JDJ 

l J29o200 

02933 

05523 

11105556 


8RU 

DA23 



NIMUS, LENGTH ,GT, 16 

09/20/67 

JD J 

00293300 

02934 

05524 

11105556 


BRU 

DA23 



ZER0, LENGTH ,EQ, 16 

09/20/67 

JDJ 

0 '293400 

02935 

05525 

02105743 


IBA 

LSLQ 



SET UP MASK 

09/20/67 

JDJ 

0 293500 

02936 

05526 

00000030 


0BA 




MERGE BITS 

09/20/67 

JDJ 

Oi293600 

02937 

05527 

03105537 


STA 

FLSL 



ST0RE INSTRUCTI0N 

09/20/67 

JDJ 

00293700 

02938 

05530 

02105705 


IBA 

FDCT 



SET P0INTER 

09/20/67 

JDJ 

00293800 

02939 

05531 

01505674 


LAA 

FSIZ- 

1, 

1 

GET SIZE 0F FIELD 

09/20/67 

JDJ 

00293900 

02940 

05532 

02105744 


LB A 

RSLO 



SET UP RSL MASK 

09/20/67 

JDJ 

00294000 

02941 

05533 

00000030 


08A 




MERGE BITS 

09/20/67 

JDJ 

00294100 

02942 

05534 

03105542 


STA 

FRSL 



ST0RE INSTRUCTI0N 

09/20/67 

JDJ 

00294200 

02943 

05535 

02105705 


IBA 

FDCT 



SET P0INTER T0 VALUE 

09/20/67 

JDJ 

00294300 

02944 

05536 

01505705 


LAA 

FVAL- 

1, 

1 

GET FIELD VALUE 

09/20/67 

. JDJ 

002^4400 

02945 

05537 

00000016 

FLSt 

LSL 

0 



REM0VE MSB 

09/20/67 

JDJ 

00294500 

02946 

05540 

00000005 


TAB 




SAVE VALUE 

09/20/67 

JDJ 

qt?94600 

02947 

05541 

01105742 


LAA 

BITS 



LAST GENERATED F0RMATI0N 

09/20/67 

JDJ 

00 i 

94 7 ~ 

02948 

05542 

00000015 

FRSL 

RSL 

0 



SET T0 MERGE 

09/20/67 

JDJ 

00 > 

94b 

02949 

05543 

00000006 


IAB 




SWAP F0R P0SSIBLE INVALID09/20/67 

JDJ 

00 

949 

02950 

05544 

00000030 

DA24 

0BA 




MERGE LEFT BITS 

09/20/67 

JDJ 

00 

950 f - 

02951 

05545 

03105742 


STA 

BITS 



H0LD F0R NEXT CYCLE 

09/20/67 

JDJ 

00 

9310 

02952 

05546 

01105705 

DA22 

LAA 

FDCT 



REDUCE NUMBER 0F FIELDS 

09/20/67 

JDJ 

00- 

'9520v 

02953 

05547 

06000001 


SMA 

si 



BY 1 

09/20/67 

JDJ 

00 1 

'93300 

02954 

05550 

03105705 


STA 

FDCT 



ST0RE FOCT-1 

09/20/67 

JDJ 

00295400 

02955 

05551 

00000021 


SAS 




TEST F0R END 0F F0RM 

09/20/67 

JDJ 

00295500 

02956 

05552 

11105561 


BRU 

DA25 



MINUS, PR0BABLY AND ERR0RO9/2O/67 

JDJ 

00295600 

02957 

05553 

11105561 


BRU 

DA25 



END 0F GENERATI0N 

09/20/67 

JDJ 

002 

P57Q0 

02958 

05554 

00000005 


TAB 




SET P0INTER T0 NEXT T0 

09/20/67 

JDJ 

002 

B5800 

02959 

05555 

11105514 


BRU 

DA21 



LAST FIELD, ETC, RECYCLE 

09/20/67 

JDJ 

002 

95900 

02960 

05556 

01505705 

DA23 

LAA 

fval- 

1, 

1 

GET FULL VALUE 16 BITS 

09/20/67 

JDJ 

oo2 

*6000 

02961 

05557 

02105742 


lba 

BITS 



GET LAST BITS 

09/20/67 

JDJ 

002 

$6100 

02962 

05560 

Hi 05544 


BRU 

DA24 



MERGE ALL BITS 

09/20/67 

JDJ 

0 029*6200 

02963 

05561 

0000000-3 

DA25 

CLA 





09/20/67 

JDJ 

00296300 

02964 

05562 

03105705 


STA 

FDCT 



SET T0 ZER0 C0UNT BACK 

09/20/67 

JDJ 

00296400 

02965 

05563 

01105742 


LAA 

BITS 



M0VE BITS 

09/20/67 

JDJ 

00296500 

02966 

05564 

03100175 


STA 

DATA 



T0 DATA 

09/20/67 

JDJ 

00296600 

02967 

05565 

01105671 


LAA 

FDER 



TEST F0RCED ERR0R 

09/20/67 

JDJ 

00296700 



810A/B MACR0-ASSfcMBLER 


Q44QQ4E 


Ql/20/71 PAGE 


84 


02968 

05566 

00000024 


SAP 



09/20/67 

JDJ 


t.u296300 

02969 

05567 

12102330 


SP8 

FWER 

ERR0R 

09/20/67 

JDJ 


00296900 

02970 

05570 

12101614 


SPB 

LIN 

N0T ERR0R 

09/20/67 

JDJ 


00297000 

02971 

05571 

14100173 


IMS 

LC 

INCREMENT L0CATI0N C0UNT 

09/20/67 

JDJ 


0u297l00 

02972 

05572 

12102132 


SPB 

PNCH 

PUNCH 0UTPUT BUFFER 

09/20/67 

JDJ 


00297200 

02973 

05573 

01077777 


LAA 

3-1 -1 

SET LISTING DELIMITER 

09/20/67 

JDJ 


00297300 

02974 

05574 

03100415 


STA 

BUFF*’13 


09/20/67 

JDJ 


00297400 

02975 

05575 

01000025 


LAA 

s * 25 

*25 CHARACTERS 

09/20/67 

JDJ 


00297500 

02976 

05576 

03100015 


STA 

PRT4 

LINE PRINTER 

09/20/67 

JDJ 


00297600 

02977 

05577 

03107741 


STA 

LSFG 

ASR 

09/20/67 

JDJ 


00297700 

02978 

05600 

00000003 


CLA 


ZER0 VALUE TABLE 

09/20/67 

JDJ 


00297800 

02979 

05601 

02077770 


LBA 

s»8 

SET T0 8 FIELDS 

09/20/67 

JDJ 


00297900 

02980 

05602 

03505716 


STA 

FVAL*8,1 

ENTIRE TABLE 

09/20/67 

JDJ 


00298000 

02981 

05603 

00000026 


IBS 



09/20/67 

JDJ 


00298100 

02982 

05604 

11105602 


BRU 

#-2 

L00P THR0UGH TABLE 

09/20/67 

JDJ 


• 00298200 

02983 

05605 

11305506 


BRU« 

FDLS 

EXIT FR0M FDSL 

09/20/67 

JDJ 


Ot 

02984 



« ' 







002' 

02985 



* F0RM PSEUD0 0PERATI0N 

1 PR0CESS0R 

9/06/67 

JDJ 


00? v 

02986 

05606 

00000003 

F0RM 

CLA 


ZER0 INITIAL VALUES 

9/06/67 

JDJ 


0029oo 

02987 

05607 

02077751 


lba 

s-23 

SIZE 0F INITIAL C0NSTANTS 

i 11/14/67 

JDJ 


0029871 

02988 

05610 

03505720 


STA 

FMAX*1,1 

CLEAR FR0M FDER T0 FMAX 

9/06/67 

JDJ 


002988C 

02989 

05611 

00000026 


IBS 


INCREMENT 

9/06/67 

JDJ 


00298900 

02990 

05612 

11105610 


BRU 

*-2 

L00P THR0UGH INDICAT0RS 

9/06/67 

JDJ 


.00299000 

02991 

05613 

03100606 


STA 

PBIN 

CLEAR BIN ACUM 

11/14/67 

JDJ 


00299100 

02992 

05614 

00000003 

F005 

CLA 


ZER0 BCD PACKER 

11/14/67 

JDJ 

«B 

00299200 

02993 

05615 

03100542 


STA 

P4BD 

CLEAR DEC ACUM 

11/14/67 

JDJ 

*B 

00299300 

02994 

05616 

12104252 

F003 

SPB 

RBCD 





00299400 

02995 

05617 

12107241 

F001 

SPB 

SCF 

FETCH A CHARACTER 

9/06/67 

JDJ 


00299500 

02996 

05620 

15000240 


CMA 

s ’ 240 

SPACE IS TERMINAT0R 

10/26/67 

JDJ 

«B 

00299600 

02997 

05621 

11105623 


BRU 

*♦2 

N0 

9/06/67 

JDJ 


00299700 

02998 

05622 

11105632 


BRU 

F004 

YES, G0 SET SPACE IND 

9/06/67 

JDJ 


00299800 

02999 

05623 

15000254 


CMA 

b*254 

N0 TEST F0R A C0MMA 

10/26/67 

JDJ 

«B 

00299900 

03000 

05624 

11105626 


BRU 

«*2 

N0 

9/06/67 

JDJ 


Q0300000 

03001 

05625 

11105634 


BRU 

F002 

YES, PR0CESS SUB FIELD 

9/06/67 

JDJ 


00300100 

03002 

05626 

12107266 


SPB 

SCO 

N0, G0 TEST F0R DIGIT 

9/06/67 

JDJ 


00300200 

03003 

05627 

11105616 


BRU 

F003 

YES, 0-9 

9/06/67 

JDJ 


00300300 



810A/B MACRO-ASSEMBLER 


Q44004E 


01/20/71 PAGE 


8"; 


03004 

05630 

12105720 


SPB 

FFER 


NO, ERROR, ALPHA IN LIST 

9/06/67 

JDJ 


00300400 

03005 

05631 

11105614 


BRU 

F005 


SET VALUE TO EERO 

11/14/67 

JDJ 

«B 

00300500 

03006 

05632 

01077777 

F004 

LAA 

**1 


SPACE IND TURN ON 

10/26/67 

JDJ 

*B 

OU300600 

03007 

05633 

03105672 


STA 

FSPA 


SET SPACE FLAG, STOP SCAN9/06/67 

JDJ 


00300700 

03008 

05634 

14105674 

F002 

IMS 

FNFL 


COUNT SUBFIELDS 

9/06/67 

JDJ 


00300800 

03009 

05635 

01000010 


LAA 

s8 


MAX NUM OF FIELDS 

10/26/67 

JDJ 

*B 

00300900 

03010 

05636 

15105674 


CMA 

FNFL 


8 vs, fields counted 

9/06/67 

JDJ 


00301000 

03011 

05637 

11105665 


BRU 

F006 


MORE THAN EIGHT, ERROR 

9/06/67 

JDJ 


00301100 

03012 

05640 

00000033 


N0P 



EQUAL TO MAX» OK 

9/06/67 

JDJ 


00301200 

03013 

05641 

12104261 


SPB 

MDBN 


CONVERT DEC TO BINARY 

11/14/67 

JDJ 

«B 

00301300 

03014 

05642 

15000020 


CMA 

*16 


A HAS BINARY FIELD SIZE 

10/26/67 

JDJ 

• B 

00301400 

03015 

05643 

00000033 


N0P 



LT, 16 IS OK 

9/06/67 

JDJ 


0038^500 

03016 

05644 

11105647 


BRU 

#♦3 


EQ, 16 IS OK, SPECIAL CAS9/06/67 

JDJ 


00301600 

03017 

05645 

12i05720 

F007 

SPB 

FFER 


ERROR, TURN 0N FLAGS 

9/06/67 

JDJ 


’ 00301700 

03018 ' 

05646 

00000003 


CLA 



ZERO FIELD SIZE 

9/06/67 

JDJ 


OC 01800 

03019 

05647 

02105674 


LBA 

FNFL 


NUMBER OF FIELDS 

11/14/67 

JDJ 

«B 

00 0190 

03020 

05650 

00000616 


LSL 

6 


POSITION BITS FOR LSL N 

11/14/67 

JDJ 

«B 

00 020PL 

03021 

05651 

03505674 


STA 

FSJZ-1*1 


STORE SIZE IN SHIFT TABLE 

: 11/14/67 

JDJ 

• B 

00 321: 

o3022 

05652 

01100606 


LAA 

P8JN 


TEST SUM TO 16 BITS 

11/14/67 

JDJ 

• B 

00 0220, 

03023 

05653 

05105717 


AMA 

FMAX 


ACCUMULATE 

9/06/67 

JDJ 


00-02300 

03024 

05654 

03105717 


STA 

FMAX 


SIZE OF SUBFIELDS 

9/06/67 

JDJ 


00^02400 

03025 

05655 

15000020 


CMA 

*16 


SUM MORE THAN MAX OF 16 

10/26/67 

JDJ 

*B 

00 02500 

03026 

05656 

00000033 


N0P 



NO OK < 16 

9/06/67 

JDJ 


00302600 

03027 

05657 

11105661 


BRU 

*♦2 


NO OK SPECIAL CASE * 16 

9/06/67 

JDJ 


00302700 

03028 

05660 

12105720 


SPB 

FFER 


ERROR SET FLAGS 

9/06/67 

JDJ 


003012800 

03029 

05661 

0.1105672 


LAA 

FSPA 

GET TERMINATOR INDICATOR 




003*2900 

03030 

05662 

00000024 


SAP 



TEST FOR SPACE INDICATOR 

9/06/67 

JDJ 


00*3000 

03031 

05663 

11105667 


BRU 

F008 


YES, GO TERMINATE FORM 

9/06/67 

JDJ 


00*5100 

03032 

05664 

11105614 


BRU 

F005 


MUST BE A COMMA, GO ZERO 

11/14/67 

JDJ 

#B 

0030*200 

03033 

05665 

03105674 

F006 

STA 

FNFL 


ERROR TOO MANY FIELDS SE9/06/67 

JDJ 


003^300 

03034 

05666 

11105645 


BRU 

F007 


TO THE MAX OF 8, SET FLAG9/06/67 

JDJ 


00303400 

03035 

05667 

12101614 

F008 

SPB 

LIN 


LIST LINE AS COMMENT 

9/06/67 

JDJ 


00303500 

03036 

05670 

11100702 


BRU 

EX02 


GO PROCESS NEXT RECORD 

9/06/67 

JDJ 


00303600 

03037 



* 

DATA 

AND CONSTANTS 

FOR FORM PSEUDO 0PERATI0N9/O6/67 

JDJ 


00303700 

03038 



• 

D0 N0T REORDER 

THE 

FOLLOWING CONSTANTS 

9/06/67 

JDJ 


00303800 

03039 

05671 

00000000 

FDER 

DATA 

0 


FDAT IS FORCED TO ERROR 

9/06/67 

JDJ 


00303900 



810A/8 

: MACRP 

i-ASSEMBLER 

044004E 



01/20/71 

PAGE 86 

03040 

05672 

00000000 

fspa 

DATA 

0 

SPACE SCAN INDICATOR 

9/06/67 

JDJ 


.U304Q00 

03041 

05673 

00000000 

FDIG 

DATA 

0 

DIGIT FOUND IN SCAN LIST 

9/06/67 

JDJ 


0(304100 

03042 

05674 

00000000 

FNFL 

DATA 

0 

NUMBER OF FIELDS IN BNRY 

9/06/67 

JDJ 


Cl304200 

03043 

05675 

00000010 

FSI2 

BSS 

8 

SHIFT TABLE IN BINARY 

9/06/67 

JDJ 


0U304300 

03044 

05705 

00000000 

FDCT 

DATA 

0 

FDAT COUNTER FOR WORDS 

9/06/67 

JDJ 


00304400 

03045 

05706 

00000010 

FVAL 

BSS 

8 

FDAT VALUES IN TABLE 

09/20/67 

JDJ 


00304500 

03046 

05716 

00000000 

FDMX 

DATA 

0 

COUNT DIGITS COMING IN 

9/06/67 

JDJ 


00304600 

03047 

05717 

00000000 

FMAX 

DATA 

0 

ACCUMULATED SIZE OF FORM 

9/06/67 

JDJ 


00304700 

03048 



* END 0F 

FIXED ORDERING OF CONSTANTS 

9/06/67 

JDJ 


00304600 

03049 

05720 

00000000 

FFER 

»«» 

*• 

FORM ERROR ROUTINE 

9/06/67 

JDJ 


00304900 

03050 

05721 

12102330 


spb 

FWER 

GENERAL E TYPE ERROR 

9/06/67 

JDJ 


00305000 

03051 

05722 

01077777 


LAA 

*•1 

FDAT NOW IS IN ERROR 

10/26/67 JDJ 

*B 

00305100 

03052 

05723 

03105671 


STA 

FDER 

FDAT ERROR INDICATOR 

9/06/67 

JDJ 


00305200 

03053 

05724 

11305720 


BRU* 

FFER 

EXIT TO MAIN PROGRAM 

9/06/67 

JDJ 


00305300 

03054 



* SUBROUTINE T0 STORE 

DATA INTO THE FDAT VALUE 

09/20/67 

JDJ 


• OC t ' 1 54(?o 

03055 



• table 1 

OF ELEMENTS 


09/20/67 

JDJ 


00 , 

03056 

05725 

00000000 

FD$T 


*« 


09/20/67 

JDJ 


00- 

03057 

05726 

14105741 


IMS 

fdtb 

COUNT FDAT FIELDS 

09/20/67 

JDJ 


00 

03058 

05727 

01105674 


LAA 

FNFL 


09/20/67 

JDJ 


00 *. J,5 bC 

03059 

05730 

15105741 


CMA 

FDTB 

FNFL VS FDTB 

09/20/67 

JDJ 


00305900 

03060 

05731 

11105737 


BRU 

DA20 

ERROR TOO MANY FIELDS 

09/20/67 

JDJ 


0030600C 

03061 

05732 

00000033 


N0P 


LAST FIELD 

09/20/67 

JDJ 


00306100 

03062 

05733 

02105741 


LBA 

FDTB 

NOT FULL YES SET POINTER 

09/20/67 

JDJ 


00306200 

03063 

05734 

01100175 


LAA 

DATA 

GET CONVERTED DATA 

09/20/67 

JDJ 


00306300 

03064 

05735 

03505705 


STA 

FVAL-1.1 

STORE IN PROPER CELL 

09/20/67 

JDJ 


00306400 

03065 

05736 

11305725 


BRU* 

FDST 

EXIT 

09/20/67 

JDJ 


00306500 

03066 

05737 

12102330 

DA20 

SPB 

FWER 

ERROR EXCESS DATA 

09/20/67 

JDJ 


00306600 

03067 

05740 

11305725 


BRU* 

FDST 

EXIT FROM STORE ROUTINE 

09/20/67 

JDJ 


00306700 

03068 

05741 

00000000 

fdtb 

DATA 

0 

COUNT OF ELEMENTS 

09/20/67 

JDJ 


00306800 

03069 

05742 

00000000 

BITS 

DATA 

0 

TEMPORARY STORAGE 

09/20/67 

JDJ 


00306900 

03070 

05743 

00000016 

LSLO 

LSL 

0 

LSL mask instruction 

09/20/67 

JDJ 


00307000 

03071 

05744 

00000015 

RSLO 

RSL 

0 

RSL MASK INSTRUCTION 

09/20/67 

JDJ 


00307100 

03072 

05745 

00000000 

F0UT 

DATA 

0 

OUTPUT FORM DATA 

09/27/67 

JDJ 


00307200 

03073 

05746 

00000000 

FD0P 

DATA 

0 

FDAT OP CODE IN CONTROL 

09/27/67 

JDJ 


00307300 

03074 



« 







00307400 

03075 



* 

LIST 

PSEUD0 OPERATION PROCESSOR 


12/19/67 

JDJ 

•C00307500 
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03076 

05747 

00000003 

LIS 

CLA 


SET M0DE T0 LIST 

12/19/67 

JDJ 

*000307600 

03077 

05750 

03100607 


STA 

LSUP 

INDICATOR 

12/19/67 

JDJ 

*000307700 

03078 

05751 

11100702 


BRU 

EX02 

GO GET NEXT RECORD 

12/19/67 

JDJ 

*C0J307800 

03079 



» 

N0 LIST PSEUD0 

OPERATION PROCESSOR 

12/19/67 

JDJ 

*00/307900 

03080 

05752 

01077777 

N0L 

LAA 


SET MODE T0 N0-LIST 

12/19/67 

JDJ 

*00 J3O8Q0O 

03081 

05753 

11105750 


BRU 

LIS + 1 

GO STORE IN SWITCH 

12/19/67 

JDJ 

*000308100 

03082 



« 




12/19/67 

JDJ 

«C00308200 

03083 



* 


DATA PSEUD0-0P PR0CESS0R 



00308300 

03084 

05754 

01100165 

star 

LAA 

SCCC 




00308400 

**03085 

85755 

05077777 


- AMA 

9 * 1 

, . • I; ■ . * • , t 

11/07/67- JDJ 

*B 

00308500 

03086 

05756 

03100165 


STA 

SCCC 

BACK UP COLUMN CTR 



00308600 

03087 

05757 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/21/67 JDJ 


00308700 

03088 

05760 

03100074 


STA 

ID 




00308800 

03089 

05761 

01100104 


LAA 

FET9 




00308900 

03090 

05762 

11106023 

\ 

BRU 

STRX 




0(309000 

03091 

05763 

00000003 

DAT1 

CLA 





OC >091-01 

03092 

05764 

03100077 


STA 

IM 




OC '0920( 

03093 

05765 

12102630 


SPB 

LABP 

PROCESS THE LABEL FIELD 

09/21/67 JDJ 


00 0930 

03094 

05766 

01000240 


LAA 

* 1 240 


12/02/68 MDL »C 


00 0940 

03095 

05767 

03108404 


STA 

BUFF + 2 


12/02/68 MDL *C 


00 >0950( 

03096 

05770 

00000003 

DAT2 

CLA 



12/02/68 MDL *C 


00 >0960 0 

03097 

05771 

03100143 


STA 

MIND 




00309700 

03098 

05772 

12107241 


SPB 

SCF 

FETCH A CHARACTER 

09/21/67 JDJ 


00309800 

03099 

05773 

15000252 


CMA 

«>252 

• 

10/26/67 JDJ 

*B 

00309900 

03100 

05774 

11105776 


BRU 

#♦2 




00310000 

03101 

05775 

11105754 


BRU 

STAR 




00310100 

03102 

05776 

02077760 


LBA 

■ »16 


10/26/67 JDJ 


00310200 

03103 

05777 

04100113 


STB 

sign 




00310300 

03104 

06000 

15000255 


CMA 

8 • 255 

m ■ 

10/26/67 JDJ 

• 8 

00310400 

03105 

06001 

11106003 


BRU 

#♦2 




00310500 

03106 

06002 

11106012 


BRU 

DAT8 




00310600 

03107 

06003 

03100113 


STA 

SIGN 




00310700 

03108 

06004 

15000253 


CMA 

■ <253 

+ 

10/26/67 JDJ 

*B 

00310800 

03109 

06005 

11106007 


BRU 

*♦2 




00310900 

03110 

06006 

11106012 


BRU 

DAT8 




00311000 

03111 

06007 

01100165 


LAA 

SCCC 




0031110C 
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03112 

06010 

05077777 


AHA 

s-1 


10/26/67 

JDJ 

*B 

f u311200 

03113 

06011 

03100165 


STA 

SCCC 

BACK UP C0LUMN CTR 




00311300 

03114 

06012 

12103154 

DATS 

SPB 

DIP 

CALL DIP 




00311400 

03115 

06013 

14100165 


IMS 

SCCC 


12/02/68 

MDL *C 


00311500 

03116 

06014 

00000022 


SAZ 






00311600 

03117 

06015 

11106115 


BRU 

DATS 

ERR0R 




00311700 

03118 

06016 

01100104 


LAA 

FET9 

LAST CHAR READ 




00311800 

03119 

06017 

03100162 


STA 

SCTM 


MDL 2/12/69 *C 


00311900 

03120 

06020 

15000254 


CHA 

#'254 

C0MMA 

10/26/67 

JDJ 

*B 

00312000 

03121 

06021 

11106023 


BRU 

**2 





00312100 

03122 

06022 

11106036 


BRU 

DAT7 

DELIMITER IS C0MMA 




00312200 

03123 

06023 

15000240 

STRX 

CMA 

= '240 

SPACE 

10/26/67 

JDJ 

*B 

00312300 

03124 

06024 

11106026 


BRU 

#♦2 





00312400 

03125 

06025 

11106032 


BRU 

DA13 

SET FDAT IF IN C0NTR0L 

09/20/67 

JDJ 


00312500 

03126 

06026 

15000257 


CMA 

#'257 

TEST F0R SLASH 

09/20/67 

JDJ 


00312600 

03127 

06027 

11106035 


BRU 

DAT6 

ERR0R N0T DELIMITER 

09/20/67 

JDJ 


0 r T * 2 7 0 0 

03128 

06030 

11106032 


BRU 

# + 2 

SLASH SET T0 0UTPUT 

09/20/67 

JDJ 


0031 

03129 

06031 

11106035 


BRU 

DAT6 

ERR0R N0T DELIMITER 

09/20/67 

JDJ 


0 0 31 . 

03130 

06032 

01077777 

DA13 

laa 

# * *1 -1 

TURN FDAT 0UTPUT IND 0N 

09/20/67 

JDJ 


0 0313 0 ii v 

03131 

06033 

03105745 


STA 

F0UT 

ST0RE MINUS 

09/20/67 

JDJ 


003l3mc 

03132 

06034 

11106036 


BRU 

DAT7 

G0 TEST F0R LITERAL 

09/20/67 

JDJ 


0031320- 

03133 

06035 

12102330 

DAT6 

SPB 

FWER 

DELIMITER IS N0T SPACE,/ 

09/21/67 

JDJ 


003133OG 

03134 

06036 

OH00120 

DAT7 

LAA 

SLIT 





00313400 

03135 

06037 

00000022 


SAZ 






00313500 

03136 

06040 

11106135 


BRU 

XXXI 

G0 TEST IF FDAT IS CNTRL 

09/20/67 

JDJ 


00313600 

03137 

06041 

01100074 

daio 

LAA 

ID 


09/20/67 

JDJ 


00313700 

03138 

06042 

03100175 


STA 

data 





00313800 

03139 

06043 

01105746 


LAA 

FD0P 

IS FDAT IN C0NTR0L 

09/20/67 

JDJ 


00313900 

03140 

06044 

00000024 


SAP 



09/20/67 

JDJ 


00314000 

03141 

06045 

11106143 


BRU 

DAU 

MINUS IS FDAT IN C0NTR0L 

09/20/67 

JDJ 


00314100 

03142 



* 

DATA 

STATEMENT 

IN C0NTR0L 

09/20/67 

JDJ 


00314200 

03143 

06046 

12101614 

DAI 2 

SPB 

LIN 

LIST A LINE 

09/20/67 

JDJ 


00314300 

03144 

06047 

14100173 


IMS 

LC 





00314400 

03145 

06050 

12102132 


SPB 

PNCH 

SET DATA INT0 PUNCH BUFF 

09/21/67 

JDJ 


00314500 

03146 

06051 

01077777 


LAA 

s-1 


10/26/67 

JDJ 

*B 

00314600 

03147 

06052 

03i004l5 


STA 

BUFF*'13 

SET LISTING DELIMITER 




00314700 
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03148 

06053 

01000025 


LAA 

**25 


10/26/67 

JDJ 

*B 

00314800 

03149 

06054 

12107742 

LSI 0 

SPB 

LS7 

SET LISTING DELIMETER 

09/21/67 

JDJ 


00314900 

03150 

06055 

01000003 

DA14 

LAA 

*3 


10/26/67 

JDJ 

■*B 

00315000 

03151 

06056 

15100077 


CMA 

IM 





00315100 

03152 

06057 

11106073 


BRU 

DAT3 





00315200 

03153 

06060 

11106073 


BRU 

DAT3 





00315300 

03154 

06061 

00000003 

DAT 4 

CLA 






00315400 

03155 

06062 

03100077 


STA 

IM 





00315500 

03156 

06063 

01100162 


LAA 

SCTM 


12/02/68 

MDL *C 


00315600 

03157 

06064 

15000254 


CMA 

**254 

C0MMA 

10/26/67 

JDJ 

*B 

00315700 

03158 

06065 

11106067 


BRU 

#*2 





00315800 

03159 

06066 

11105766 


BRU 

DAT2-2 


12/02/68 

MDL *C 


00315900 

03160 

06067 

15000257 


CMA 

**257 

SLASH 

09/20/67 

JDJ 


00316000 

03161 

06070 

11106072 


BRU 

*♦2 

N0 NEXT LINE 

09/20/67 

JDJ 


' 00316100 

03162 

06071 

11105766 


BRU 

DAT2-2 


12/02/68 

MDL *C 


00316200 

03163 

06072 

11100702 

s 

BRU 

EX02 

PR0CESS NEXT REC0RD 

09/21/67 

JDJ 


0C 16300 

03164 

06073 

01105746 

DAT3 

LAA 

FD0P 

TEST IF FDAT IS C0NTR0L 

09/20/67 

JDJ 


00 164Gb 

03165 

06074 

00000024 


SAP 



09/20/67 

JDJ 


00 16500 

03166 

06075 

11106154 


BRU 

DA15 

MINUS YES THEN ERR0R D0BLO9/2O/67 

JDJ 


00 16600 

03167 

06076 

01100075 


LAA 

I D*1 

D0UBLE PRECISI0N DATA 

09/20/67 

JDJ 


00 1670 L 

03168 

06077 

03100175 


STA 

DATA 





00316800 

03169 

06100 

12101614 


SPB 

LIN 

LIST A LINE 

09/21/67 

JDJ 


00 16900 

03170 

06101 

14100173 


IMS 

LC 





00817000 

03171 

06102 

12102132 


SPB 

PNCH 

SET DATA INT0 PUNCH BUFF 

09/21/67 

JDJ 


00317100 

03172 

06103 

01100077 


LAA 

IM 





00317200 

03173 

06104 

06000004 


SMA 

*4 


10/26/67 

JDJ 

*B 

00317300 

03174 

06105 

0.0000022 


SA2 






0Q3ft74Q0 

03175 

06106 

11106061 


BRU 

DAT4 





00317500 

03176 

06107 

QU00076 


LAA 

10*2 





00317600 

03177 

06110 

03100175 


STA 

DATA 





0033*7700 

03178 

06111 

12101614 


SPB 

LIN 

LIST A LINE 

09/21/67 

JDJ 


00317800 

03179 

06112 

14100173 


IMS 

LC 





00317900 

03180 

06113 

12102132 


SPB 

PNCH 

SET DATA INT0 PUNCH BUFF 

09/21/67 

JDJ 


00318000 

03181 

06114 

11106061 


BRU 

DAT4 


- 



00318100 

03182 

06115 

00000003 

DAT5 

CLA 






00318200 

03183 

06116 

03100077 


STA 

IM 





00318300 
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03164 

06117 

03100100 


STA 

IM* 1 





00318400 

03185 

06120 

03100101 


STA 

I M*2 





00318500 

03186 

06121 

01100104 

D1AT 

LAA 

FET9 





00318600 

03187 

06122 

15000254 


CMA 

*'254 

C0MMA 

10/26/67 

JDJ 

• B 

00318700 

03188 

06123 

11106125 


BRU 

* + 2 





00318800 

03189 

06124 

11106035 


BRU 

DAT 6 





00318900 

03190 

06125 

15000240 


CMA 

*'240 

SPACE 

10/26/67 

JDJ 


00319000 

03191 

06126 

11106130 


BRU 

*♦2 





00319100 

03192 

06127 

11106035 


BRU 

DAT6 





00319200 

03193 

06130 

15000257 


CMA 

*'257 

SLASH 

09/20/67 

JDJ 


00319300 

03194 

06131 

11106133 


BRU 

#♦2 

N0 SEARCH 

09/20/67 

JD J 


00319400 

03195 

06132 

11106035 


BRU 

DAT6 

YES SET ERR0R SWITCH 

09/20/67 

JD J 


00319500 

03196 

06133 

12107241 


SPB 

SCF 

FETCH A CHARACTER 

09/21/67 

JD J 


00319600 

03197 

06134 

11106122 


BRU 

diat+i 





00319700 

03198 



» 







00319800 

03199 

06135 

01105746 

XXXI 

laa 

FD0P 

TEST IF FDAT C0NTR0L 

09/20/67 

JD J 


0 ’' " ' 0 n 0 

03200. 

06136 

00000024 

\ 

SAP 



09/20/67 

JD J 


Ouc: 

03201 

06137 

11106141 


BRU 

**2 

MINUS IS FDAT C0NTR0L 

09/20/67 

JD J 


0 03, 

03202 

06140 

11107777 


BRU 

XXXX 

PLUS IS DATA C0NTR0L 

09/20/67 

JD J 


o r 

03203 

06141 

12102330 


SPB 

FWER 

ERROR LITERAL ILLEGAL 

09/20/67 

JD J 


003203 

03204 

06142 

11106041 


BRU 

DA10 

G0 PR0CESS REMAINDER 

09/20/67 

JD J 


003204' 

03205 



* 

G0 ! 

5T0RE GENERATE 

AND 0UTPUT FDAT ELEMENT 

09/20/67 

JD J 


00320500 

03206 

06143 

12105725 

DA11 

SPB 

FDST 

STORE IN TABLE 0F VALUES 

09/20/67 

JD J 


00320600 

03207 

06144 

01105745 


LAA 

F0UT 

TEST IF TERMINAT0R FDAT 

09/20/67 

JD J 


00320700 

03208 

06145 

00000024 


SAP 



09/20/67 

JD J 


00320800 

03209 

06146 

11106150 


BRU 

*♦2 

OUTPUT FDAT STATEMENT 

09/20/67 

JD J 


00320900 

03210 

06147 

11106055 


BRU 

DA14 

G0 TEST PRECISION 

09/20/67 

JD J 


00321000 

03211 

06150 

00000003 


CLA 


SET THE FDAT OUTPUT IND 

09/20/67 

JD J 


0Q32110C 

03212 

06151 

03105745 


STA 

F0UT 

T0 2ER0 0R FINISHED GEN 

09/20/67 

JD J 


00321200 

03213 

06152 

12105506 


SPB 

FDLS 

OUTPUT FORMATTED WORD 

09/27/67 

JD J 


00321300 

03214 

06153 

11106055 


B.RU 

DA14 

G0 TEST PRECISION 

09/20/67 

JD J 


00321400 

03215 

06154 

12102330 

DAI 5 

SPB 

FWER 

DOUBLE PRECISION FDAT 

09/20/67 

JD J 


00321500 

03216 

06155 

11106061 


BRU 

DAT4 

SET TO SINGLE USE MSB 

09/20/67 

JD J 


00321600 

03217 

06156 

03100104 

DA18 

STA 

FET9 


MDL 1/31/69 *C 


00321700 

03218 

06157 

01105746 


LAA 

FD0P 

FDAT IN CONTROL 




00321800 

03219 

0616Q 

00000024 


SAP 



09/20/67 

JD J 


00321900 
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03220 

06161 

12105506 


SPB 

FDLS 

MINUS YES 0UTPUT 

09/20/67 

JDJ 


0J322000 

03221 

06162 

11100702 


BRU 

EX02 

PR0CESS NEXT REC0RD 

09/20/67 

JDJ 


00322100 

03222 

06163 

12105506 

DA19 

SPB 

FDLS 

0UTPUT FDAT W0RD 

09/20/67 

JDJ 


00322200 

03223 

06164 

11106012 


BRU 

DAT8 

G0 PR0CESS NEXT SET 

09/20/67 

JDJ 


00322300 

03224 

06165 

25400000 

DIID. 

DAC 

«« 





00322400 

03225 

06166 

12103640 


SPB 

RSID 

RIGHT SHIFT MULTIPLE W0RDO9/21/67 

JDJ 


00322500 

03226 

06167 

01077730 


LAA 

»«*40 


10/26/67 

JDJ 

*B 

00322600 

03227 

06170 

03100061 


STA 

T 





00322700 

03228 

06171 

01100100 


LAA 

DIT2 





00322800 

*032 vr ! 

06172 

06077776 


SMA 

*•'2 

■ - . 

10/26/67 

JDJ 

*B 

00322900 

03230 

06173 

03100100 


STA 

DIT2 





00323000 

03231 

06174 

0li00074 

DVD1 

LAA 

ID 





00323100 

03232 

06175 

06050000 


SMA 

* *50000 

10 AT B 4 

10/26/67 

JDJ 

*B 

. 00323200 

03233 

06176 

00Q00Q23 


SAN 






00323300 

03234 

06177 

03100074 

\ 

STA 

ID 





00 '23400 

03235 

06200 

00000023 


SAN 






00 > 2 3 5 0 C 

03236 

06201 

14100076 


IMS 

ID*2 





00 2360: 

03237 

06202 

12103665 


SPB 

LS ID 

LEFT SHIFT MUL W0RD 

11/07/67 

JDJ 

»B 

00 23700 

03238 

06203 

14100061 


IMS 

T 





00 23801 

03239 

06204 

H106174 


BRU 

DVD1 





00 >23900 

03240 

06205 

01100074 


LAA 

ID 





00 ’24000 

03241 

06206 

00000416 


LSL 

4 





00 >24100 

03242 

06207 

00000415 


RSL 

4 





00324200 

03243 

06210 

03100074 


STA 

ID 





00324300 

03244 

06211 

11306165 


BRU* 

DIID 





00324400 

03245 



• 







00|24500 

03246 



# 







00^24600 

03247 



# 







00324700 

03248 



# 

„ 






00324800 

03249 



« 


TERMINATE! 

CL0SE0UT) PUNCHING 




003^4900 

03250 



* 







00325000 

03251 

06212 

25400000 

ED P 

DAC 

»«- 

END PUNCHING EXIT 




00325100 

03252 

06213 

00130402 


SNS 

2 

SWITCH 2 




00325200 

03253 

06214 

11306212 


BRU* 

EDP 

SET(N0 BINARY PUNCH) 




00325300 

03254 

06215 

00130403 


SNS 

3 

SWITCH 3 




00325400 

03255 

06216 

11306212 


BRU* 

EDP 

SET(0FFLINE LIST EXIT) 




00325500 
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03256 

06217 

00130414 


SNS 

12 





*E0u325600 

03257 

06220 

11106226 


BRU 

MTP2 





•EOO325700 

03258 

06221 

12102003 


SPB 

ledr 

PUNCH TRAILER TAPE 

09/21/67 

JDJ 


00325800 

03259 



# 


LEDR RETURNS 

DEVICE M IN A-REGJSTER 




♦E0U325900 

03260 

06222 

15077776 


CMA 

«»2 





•E00326000 

03261 

06223 

11306212 


BRU* 

EDP 

RETURN 




•E00326100 

03262 

06224 

55100000 


CALL 

PSP0 

TURN PUNCH P0WER 0FF 




•E00326200 

03263 

06225 

11306212 


BRU* 

EDP 

EXIT 




00326300 

03264 

06226 

00000000 

MTP2 

BSS 

0 





•E00326400 

03265 

06226 

01000010 


LAA 

s8 

DEVICE NUMBER 




•E00326500 

03266 

06227 

12110467 


SPB 

TE0F 





•E00326600 

03267 

06230 

11306212 


BRU* 

EDP 





•E00326700 

03268 

06231 

15000254 

C2AU 

CMA 

**254 

C0MMA 

10/26/67 

JD J 

*B 

00326800 

03269 

06232 

11107476 


BRU 

CAL4 

L00K F0R A SPACE 

09/21/67 

JDJ 


00326900 

03270 

06233 

11106235 


BRU 

• ♦2 





00327000 

03271 

06234 

11107476 


BRU 

CAL4 

L00K F0R A SPACE 

09/21/67 

JD J 


* 0C T 2 7 100 

03272 

06235 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/21/67 

JDJ 


00- . 

03273 

06236 

15000001 


CMA 

*1 


10/26/67 

JDJ 

*B 

0032 

03274 

06237 

12102330 


SPB 

PWER 

INDEX ERR0R 

09/21/67 

JDJ 


0 0 3 2 r 1 ' ‘ 

03275 

06240 

11106242 


BRU 

#♦2 





00327^1 

03276 

06241 

12102330 


SPB 

FWER 

INDEX ERR0R 

09/21/67 

JDJ 


0032760 

03277 . 

06242 

00001016 


LSL 

8 





00327700 

03278 

06243 

05100174 


AMA 

L0AD 





00327800 

03279 

06244 

03100174 


STA 

L0AD 





00327900 

03280 

06245 

01100162 


LAA 

SCTM 





00328000 

03281 

06246 

11107476 


BRU 

CAL4 

L00K F0R A SPACE 

09/21/67 

JDJ 


00328100 

03282 



•END 

PR0CESS0R 





00328200 

03283 

06247 

12102630 

END 

SPB 

LABP 

LA8P LABEL PR0CESS0R 

09/21/67 

JDJ 


00328300 

03284 

06250 

01100126 


LAA 

PASS 





00328400 

03285 

06251 

00000022 


SAZ 


PASS 2 




00328500 

03286 

06252 

11106432 


BRU 

END1 

PASS 1 




00328600 

03287 

06253 

01100151 


LAA 

SFLA 

SUBR• FLAG 




00328700 

03288 

06254 

00000023 


SAN 


SUBR 




00328800 

03289 

06255 

11106260 


BRU 

« + 3 





00328900 

03290 

06256 

01037777 

v 

LAA 

* * 37777 


10/26/67 

JDJ 

• B 

00329000 

03291 

06257 

11106261 


BRU 

*♦2 





00329100 
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03292 

06260 

12106556 


SPB 

SCAN 

SCAN VARIABLE field 

09/21/67 

JDJ 


0329200 

03293 

06261 

03100175 


STA 

DATA 





00329300 

03294 

06262 

02100172 


lba 

RLC 





00329400 

03295 

06263 

01100163 


laa 

SCF 0 





0 ,329500 

03296 

06264 

00000023 


SAN 






00329600 

03297 

06265 

04100171 


STB 

SCRL 





00329700 

03298 

06266 

01100171 


LAA 

SCRL 





00329800 

03299 

06267 

00000022 


SA2 






00329900 

033qo 

06270 

01020000 


LAA 

a 1 20 0 0 0 


10/26/67 

JDJ 

*B 

00330000 

03301 

06271 

05041000 


AMA 

s 1 141000 


10/26/67 

JDJ 

*B 

00330100 

03302 

06272 

03100174 


STA 

L0AD 





00330200 

0 3 3 0 3 

06273 

03100150 


STA 

ENDF 





00330300 

03304 

06274 

01100170 


LAA 

SCAD 





00330400 

03305 

06275 

03100175 


STA 

DATA 

0UTPUT END-JUMP C0DE 




00330500 

03306 

06276 

12102132 

\ 

SPB 

PNCH 

DATA T0 PUNCH BUFFER 

09/21/67 

JDJ 


0C 330600 

03307 

06277 

12102032 


SPB 

CL0T 

CL0SE 0UT BUFFER 

09/21/67 

JDJ 


00 >3n7" r 

03308 

06300 

12101614 


SPB 

LIN 

LIST A LINE 

09/21/67 

JDJ 


0 C 3 0 o j 

03309 

06301 

01100155 


LAA 

PDEV 





«E00 30900 

03310 

06302 

15077776 


CMA 

5*2 





*EOC 310OC 

03311 

06303 

11106305 


BRU 

*♦2 





»EOQ .31100 

03312 

063Q4 

55100000 


CALL 

P$P0 

TURN PUNCH 0FF 




«E0033120u 

03313 



*SYMB0L table TYPE 0UT 





GO >31300 

03314 

06305 

01000025 

SYPE 

LAA 

a • 25 


10/26/67 

JDJ 

#6 

00331400 

03315 

06306 

03100015 


STA 

PRT4 

SET LISTING DELIMITER * 

2509/21/67 

JDJ 


00331500 

03316 

06307 

01077777 


LAA 

*-l 


10/26/67 

JDJ 

*B 

00331600 

03317 

06310 

03100415 


STA 

BUFF +’13 

PRINT BUFFER END SENTINEL 



00331700 

03318 

06311 

03100173 


STA 

LC 

T0 PREVENT 0CTAL EDIT 




00331800 

03319 

06312 

01000240 


LAA 

a ' 240 

SPACE 

10/26/67 

JDJ 

*B 

00331900 

03320 

06313 

02077761 


LBA 

s-15 

11/20/67 JDJ *B 




00332000 

03321 

06314 

03500410 


STA 

BUFF *6»1 





00332100 

03322 

06315 

00000026 


IBS 






00332200 

03323 

06316 

11106314 


BRU 

*-2 





00332300 

03324 

06317 

02100002 


LBA 

L0W 

ASSIGN TABLE START ADDR 




00332400 

03325 

06320 

01400000 

SYOO 

LAA 

0#1 

1ST WD TASS ITEM 




00332500 

03326 

06321 

00000022 


SA2 


HER0 




00332600 

03327 

06322 

11106335 


BRU 

SY09 

N0 




00332700 
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03328 

06323 

11106414 


BRU 

EN12 

03329 

06324 

12103706 

SY12 

SPB 

SSSS 

03330 

06325 

25400700 


DAC 

•700 

03331 

06326 

11106350 


BRU 

SY13 

03332 

06327 

11106406 


BRU 

SY01 

03333 

06330 

00000116 

SY99 

LSL 

1 

03334 

06331 

00000023 


SAN 


03335 

06332 

11106324 


BRU 

SY12 

03336 

06333 

01000315 


LAA 

s • 315 

03337 

06334 

11106347 


BRU 

SY13-1 

03338 

06335 

04100367 

SY09 

STB 

TASS 

03339 

06336 

00000032 


SNO 


03340 

06337 

00000024 


SAP 


03341 

06340 

1H06406 


BRU 

SYQ1 

03342 

06341 

01000240 


LAA 

*•240 

03343 

06342 

03100371 


STA 

LNO 

03344 

06343 

01400001 

\ 

LAA 

1*1 

03345 

06344 

00000023 


SAN 


03346 

06345 

11106330 


BRU 

SY99 

03347 

06346 

01000325 


LAA 

*•325 

03348 

06347 

03100371 


STA 

LNO 

03349 

06350 

12107712 

SY13 

SPB 

SY14 

03350 

06351 

01400000 


LAA 

0,1 

03351 

06352 

00000612 


FRA 

6 

03352 

06353 

00001116 


LSL 

9 

03353 

06354 

00000032 


SNO 


03354 

06355 

00000020 


ASC 


03355 

06356 

00001115 


RSL 

9 

03356 

06357 

03100401 


STA 

BUFF-1 

03357 

06360 

00000004 


TBA 


03358 

06361 

00000032 


SNO 


03359 

06362 

00000020 


ASC 


03360 

06363 

00001115 


RSL 

9 

03361 

06364 

03100400 


STA 

BUFF-2 

03362 

06365 

02100367 

SY02 

LBA 

TASS 

03363 

06366 

01400001 


LAA 

1,1 
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N0T multiple defined 

ERR0R C0DE M 

ERROR-MULTIPLE DEFINED 

TASS INDEX 

TASS SYMBOL 

ITEM 

N0 

SPACE 


SKIP IF UNDEFINED 
SYMBOL IS DEFINED 
U ERROR 

modify the output area 

1ST AND 2ND CHAR 
POSITION 2ND CHAR 
6TH BIT ON 
NO,TURN ON 7TH BIT 


1ST CHAR 

6TH BIT ON 

NO, TURN ON 7TH BIT 


10/26/67 

10/26/67 

10/26/67 

09/21/67 


JDJ *B 

JDJ *B 

JDJ «B 
JDJ 


X 

X 

X 


0 0332800 
00332900 
00333000 
00333100 
00333200 
00333300 
00333400 
00333500 
00333600 
00333700 
00333800 
00333900 
00334000 
00334100 
00334200 
00 . 

003 3 

0033 •„ 

003 3461' 

003347C 

0033480 

00334900 

00335000 

00335100 

00335200 

00335300 

00335400 

00335500 

00335600 

00335700 

00335800 

00335900 

00336000 

00336100 

00336200 

00336300 
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03364 

06367 

00000612 

SY10 

FRA 

6 

3RD AND 4TH CHAR 





00336400 

03365 

06370 

00001116 


LSL 

9 

P0SITI0N 2ND CHAR 





10336500 

03366 

06371 

00000032 


$N0 


6TH BIT 0N 





0 336600 

03367 

06372 

00000020 


ASC 


N0,TURN 0N 7TH 81T 





0 336700 

03368 

06373 

00001115 


RSL 

9 






0,336800 

03369 

06374 

03100403 


STA 

BUFF+l 






00336900 

03370 

06375 

00000004 


TBA 


3RD CHAR 





00337000 

03371 

06376 

00000032 


SN0 


6TH BIT 0N 





00337100 

03372 

06377 

00000020 


ASC 


N0# TURN 0N 7TH BIT 





00337200 

03373 

06400 

00001115 


RSL 

9 






00337300 

03374 

06401 

03100402 


STA 

BUFF 






00337400 

03375 

06402 

02100367 

SY11 

LBA 

TASS 






00337500 

03376 

06403 

02400002 


lba 

2*1 






00337600 

03377 

06404 

04100175 


STB 

DATA 

DEFINITI0N 





00337700 

03378 

06405 

12101614 

\ 

SPB 

LIN 

LINE 0UTPUT SYM AND 

DEF 

09/21/67 

JDJ 


0^37800 

03379 

06406 

01100367 

SY01 

LAA 

TASS 

increment 





00 >37? r ' 

03380 

06407 

05000003 


AMA 

«3 

TASS INDEX 


10/26/67 

JDJ 


Of 3801 

03381 

06410 

00000005 


TAB 


AND SAVE 





Of 381C 

03382 

06411 

06100001 


SMA 

HIGH 






Oi 3820' 

03383 

06412 

00000024 


SAP 


END 0F TASS 





00 >3830T 

03384 

‘06413 

11106320 


BRU 

SYOO 

N01L00P 





00 ^38400 

03385 



* 0UTPUT 

THE C0UNT 0F 

ERR0R FLAGS 


10/17/67 

JDJ 

*B 

00 >38500 

03386 

06414 

12107712 

EN12 

SP8 

SY14 

CLEAR INPUT AREA 


10/17/67 

JDJ 

#B 

00338600 

03387 

06415 

00000003 


CLA 







00338700 

03388 

06416 

03100175 


STA 

DATA 

SET EDIT T0 HERD 

11/20/67 JDJ 

*B 


00338800 

03389 

06417 

02077764 


LBA 

= •12 

M0VE MESSAGE T0 PRINT 

10/17/67 

JDJ 

«B 

00338900 

03390 

06420 

01501765 


LAA 

EMSG+12,1 



10/17/67 

JDJ 

*B 

00339000 

03391 

06421 

03500405 


STA 

LN0*12#1 



10/17/67 

JDJ 

«B 

00339100 

03392 

06422 

00000026 


IBS 


ERR0RSBXXXXB 


10/17/67 

JDJ 

*B 

00339200 

03393 

06423 

11106420 


BRU 

*•3 

L00P 


10/17/67 

JDJ 

«B 

00339300 

03394 

06424 

12101614 


SPB 

LIN 

G0 PRINT THE LINE 


10/17/67 

JDJ 

«B 

00339400 

03395 



» 








00339500 

03396 



» 



C0UNTER RESET AT BEGINNING MDL 1/31/69 *C 


00339600 

03397 



« 



0F PR0GRAM 


MDL t/31/69 *C 


00339700 

03398 



ft- 





MDL 1/31/69 *C 


00339800 

03399 

06425 

01107015 


LAA 

LPGE 

SET PAGE C0UNT HEADING 


JDJ 

00339901 
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Q44004E 


03400 

06426 

03107016 


STA 

LPCT 

•WILL OCCUR ON NEXT END 



in . 

W w 

.u34c300 

03401 

06427 

01300002 


LA A* 

L0W 

RESTORE BEGINNING 0F TAB 

10/1.7/67 

• f 

yi>U 

«*b 

C 3401Q0 

034Q2 

06430 

0310001-7 


STA 

TL0W 

TABLE FOR RESTART 0F PASS 2 



f 340200 

03403 



« 


MAG T APE TEST 

AND ADVANCE PAST 

MDL 2/9/69 *C 


0 J340300 

03404 



* 


END 0F FILE REMOVED, 

MDL 2/9/69 *C 


00340400 

03405 

06431 

11100642 


BRU 

EX01 

START PASS 1 

09/21/67 

JDJ 


00340500 

03406 

06432 

01100152 

END1 

LAA 

MAPF 





00340600 

03407 

06433 

Q0000022 


SAZ 






00340700 

03408 

06434 

11106436 


BRU 

• ♦2 





00340800 

03409 

06435 

11106440 


BRU 

*♦3 





00340900 

03410 

06436 

01100173 


LAA 

LC 





00341000 

03411 

06437 

03100153 


STA 

SIZE 





00341100 

03412 



« 



CEU INSTRUCTIONS REMOVED 

MDL 

1/4/69 

*c 

00341200 

03413 

06440 

12103706 


SPB 

SSSS 

MAG TAPE SOURCE 




00341300 

03414 

06441 

25401300 


DAC 

'1300 





. 00^41400 

03415 

06442 

11110522 


BRU 

0BK 





00 

03416 

06443 

00000000 

% 

hlt 






0 0 3 4 ; 

03417 

06444 

11106513 


BRU 

END2 





0 0 o A 1 7 ■ 

03418 

06445 

02100417 

D0LR 

LBA 

BUFF + ' 15 

COLUMN 2 

9/06/67 

JDJ 


00341u : 

03419 

06446 

01100420 


LAA 

BUFF * * 16 

COLUMN 3 

9/06/67 

JDJ 


003419 f 

03420 

06447 

00001316 


LSL 

11 


9/06/67 

JDJ 


003420C w 

03421 

06450 

00000514 


FRL 

5 

B IS NOW COL 2,3 

9/06/67 

JDJ 


00342100 

03422 

.06451 

01100421 


LAA 

BUFF ♦ ' 17 

COLUMN 4 

9/06/67 

JDJ 


00342200 

03423 

06452 

00OO1316 


LSL 

11 


9/06/67 

JDJ 


00342300 

03424 

06453 

00000514 


FRL 

5 

B IS NOW COL 2,3,4 

9/06/67 

JDJ 


00342400 

03425 

06454 

00000004 


TBA 



9/06/67 

JDJ 


00342500 

03426 

06455 

15107017 


CMA 

KP JD 

P1D LITERAL 5 BIT TASCII 

9/06/67 

JDJ 


00342600 

03427 

06456 

11106460 


BRU 

**2 

NOT A JPID CARD 

9/06/67 

JDJ 


00342700 

03428 

06457 

11106764 


BRU 

PAGE 

YES IT IS A IPID CARD 

9/06/67 

JDJ 


00342800 

03429 

06460 

02050000 


LBA 

s' 150000 


10/26/67 

’ JDJ 

*B 

00342900 

03430 

06461 

04100177 


STB 

PUNF 





00343000 

03431 

06462 

00000003 


CLA 






00343100 

03432 

06463 

03100126 


STA 

PASS 





00343200 

03433 

06464 

03100202 


STA 

BSIZ 





00343300 

03434 

06465 

01100172 


LAA 

RLC 





00343400 

03435 

06466 

00000024 


SAP 






00343500 
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03436 

06467 

16020000 


AM8 

s ’ 20000 


10/26/67 JDJ 

*B 

jQoijouu 

03437 

06470 

04100174 


STB 

L0AD 

0UTPUT E0J C0DE 



00343700 

03438 

06471 

12102132 


SPB 

PNCH 

DATA T0 PUNCH BUFFER 

09/21/67 JDJ 


0343800 

03439 

06472 

12102032 

D0L2 

SPB 

CL0T 

CL0SE 0UT BUFFER 

09/21/67 JDJ 


0343900 

03440 

06473 

12106212 


SPB 

EDP 

TERMINATE TAPE 

09/21/67 JDJ 


0344000 

03441 



# 



CEU I NSTRUCTI0NS REM0VED 

MDL 1/4/69 

*C 

00344100 

03442 

06474 

12103706 


SPB 

SSSS 




00344200 

03443 

06475 

25401300 


DAC 

•1300 

MAG TAPE S0URCE 



00344300 

03444 

06476 

11106500 


8RU 

»*2 

YES 



00344400 

03445 

06477 

11106503 


8RU 

ENEM 




00344500 

03446 

06500 

01000007 


LAA 

s7 


10/26/67 JDJ 

*B 

00344600 

03447 

06501 

55100000 


CALL 

A$DE7 

ADVANCE PAST E0F 



00344700 

03448 

06502 

12110533 


SPB 

TSTB 




00344800 

03449 

06503 

12103706 

ENEM 

SPB 

SSSS 

TEST F0R MAG SYMB0LIC 0UT9/O6/67 JDJ 


' 00344900 

03450 

06504 

25401500 

\ 

0 AC 

•1500 

SNS 13 

9/06/67 JDJ 


r 0345000 

03451 

06505 

11106510 


8RU 

WE0F 

YES WRITE AN E0F 

9/06/67 JDJ 


t )345 

03452 

06506 

00000000 

PAUS 

HLT 


ST0P. G0 T0 MNEM 

9/06/67 JDJ 


f 345 

03453 

06507 

11100612 


BRU 

MNEM 

T0 START PASS 1 



l 345 

03454 

06510 

01077767 

WE0F 

LAA 

a.9 

WRITE 0N 3 

10/26/67 JDJ 

*B 

■„ 345 

03455 

06511 

55100000 


CALL 

ES0F7 

WRITE TAPE MARK 0CTAL 17 

9/06/67 JDJ 


C 345 

03456 • 

06512 

11106506 


BRU 

PAUS 

G0 ST0P F0R RESTART 

9/06/67 JDJ 


0 J3456. 

03457 





- 0 345700 

03458 



« change 

T0 ALL0W 

A SKIP T0 T0P 0F F0RM AT THE BEGINNING 0F EACH 

S/R 

00345800 

03459 





00345900 

03460 

06513 

00000003 

END2 

CLA 


BEGIN PASS 2 



00346000 

03461 

06514 

03100126 


STA 

PASS 

SET PASS 2 



00346100 

03462 

06515 

03100173 


STA 

LC 

RESET L0C C0UNT 



00346200 

03463 

06516 

03100172 


STA 

RLC 

SET ABS M0DE 



0034630. 

03464 

06517 

03100607 


STA 

LSUP 

SET M0DE T0 LIST 

12/19/67 

JDJ 

*C0Q34640C 

03465 

06520 

03112251 


STA 

AHTU + 1 

SET BASE T0 2ER0 

11/18/67 JDJ 

*8 

0034650 C 

03466 

06521 

01000001 


LAA 

*1 

SET PAST T0 PR0CESS 

11/18/67 JDJ 

*B 

00346600 

03467 

06522 

03100544 


STA 

HPXX 

NEXT VALUE AS 1 T0 GET 

11/18/67 JDJ 

*8 

00346700 

03468 

06523 

12104465 


SPB 

PAST 

THE TABLE T0 1-16 

11/18/67 JDJ 

«B 

00346800 

03469 

06524 

02077777 


LBA 

o-l 

SET F0RM IN ERR0R 

10/26/67 JDJ 

*B 

00346900 

03470 

06525 

04105671 


STB 

FDER 

IF FDAT PRECEEDS F0RM 

9/07/67 JDJ 


00347000 

03471 

06526 

00000003 


CLA 


LEADER T0 BLANKS 11/20/67 JDJ *B 

003471C 
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03472 

06527 

12102003 


SPB 

LEDR 

03473 

06530 

12103706 


SPB 

ssss 

03474 

06531 

25400100 


DAC 

*100 

03475 

06532 

lli06550 


BRU 

TTRT 

03476 

06533 

01107020 


laa 

PIDI 

03477 

06534 

00000023 


SAN 


03478 

06535 

11106550 


BRU 

TTRT 

03479 

06536 

12103706 


SPB 

SSSS 

03480 

06537 

25401500 


DAC 

*1500 

03461 

06540 

11106551 


BRU 

tfri 

03482 

06541 

12103706 


SPB 

SSSS 

03483 

06542 

25400400 


DAC 

*400 

03484 

06543 

11106550 


BRU 

TTRT 

03485 

06544 

01077774 


laa 

3-4 

03486 

06545 

55100000 


CALL 

HSWR 

03487 

06546 

35400045 


DAC 

K261 

03488 

06547 

00000001 

% 

DATA 

1 

03469 

0655q 

11100702 

TTPT 

BRU 

EX02 

03490 






03491 

06551 

12106755 

TFRl 

SPB 

CLAX 

03492 

06552 

01000261 


LAA 

* * 261 

03493 

06553 

03110317 


STA 

AXB 

03494 

06554 

12110307 


SPB 

WMGT 

03495 

06555 

11106550 


BRU 

TTRT 

03496 



« 



03497 



» 


SCAN SUBR0UTI 

03498 



* 



03499 

06556 

25400000 

SCAN 

DAC 

«• 

03500 

06557 

00000025 


S0F 


03501 

06560 

00000033 


N0P 


03502 

06561 

00000003 


CLA 


03503 

06562 

03100164 


STA 

SCDF 

03504 

06563 

03100163 


STA 

SCF0 

03505 

06564 

03100170 


STA 

SCAD 

03506 

06565 

03100171 


STA 

SCRL 

03507 

06566 

03100161 


STA 

SCLT 


01/20/71 PAGF 


98 




810A/B MACR0-ASSEMBLER Q440Q4E 01/20/71 PAGE 


03508 

06567 

03100166 


STA 

SCSN 

SUBADDRESS SIGN s * 




00350800 

03509 

06570 

00000003 

SC10 

CL A 






0 u3509QQ 

03510 

06571 

03100167 


STA 

SCSA 

SUBADRESS = 0 




00351Q00 

03511 

06572 

12107241 

SC12 

SPB 

SCF 

FETCH NEXT CHARACTER 




00351100 

03512 

06573 

00000006 


I AB 


SAVE A-REG 




*E0u351200 

03513 

06574 

01102541 


LA A 

AUGM 





*£00351300 

03514 

06575 

00000022 


SAH 


C0NTINUE IF FLAG N0T SET 




*E00351400 

03515 

06576 

11106600 


BRU 

AUGT 

G0 CHECK FIELD 0CCUPIED FLAG 



*E00351500 

03516 

06577 

11106603 


BRU 

AUGB 

C0NTINUE 




*E0Q351600 

03517 

06600 

01100163 

AUGT 

LAA 

SCF 0 

FIELD 0CCUPIED FLAG 




*E00351700 

03518 

06601 

00000022 


SA2 


SKIP IF N0T SET 




•E00351800 

03519 

06602 

11102412 


BRU 

MR99 

ERR0R - ADDRESS PRESENT 




•E00351900 

03520 

06603 

00000006 

AUGB 

I AB 


REST0RE A-REG 




*.E00352QOO 

03521 

06604 

12107260 


SPB 

SCL 

CHECK F0R LETTER 




00352100 

03522 

06605 

11107306 

% 

BRU 

SYMP 

CHAR = A-2 




OC 52200 

03523 

06606 

12107266 


SPB 

SCD 

CHECK F0R DIGIT 




00 < 5 2 3 r 

03524 

06607 

11106713 


BRU 

SC40 

CHAR = 0-9 




OC 524'. 

03525 

06610 

00000005 


TAB 






00 52500 

03526 

06611 

00000003 


CLA 






00 5260L 

03527 

. 06612 

03100143 


STA 

MIND 





00 5270r 

03528 

06613 

00000004 


TBA 






00 5280b 

03529 

06614 

15000244 


CMA 

= '244 

$ 

10/26/67 

JDJ 

• B 

00 -52900 

03530 

06615 

11106617 


BRU 

»*2 





00353000 

03531 

06616 

11106650 


BRU 

sen 





00353100 

03532 

06617 

15000247 


CMA 

= •247 

C0MMA 

10/26/67 

JDJ 

«B 

00353200 

03533 

06620 

11106622 


BRU 

*♦2 

N0 




00353300 

03534 

06621 

11106706 


BRU 

SC36 

YES 




00353400 

03535 

06622 

15000252 


CMA 

= '252 

ASTRISK 

10/26/67 

JDJ 

*B 

00353500 

03536 

06623 

11106625 


BRU 

*♦2 

N0 




00353600 

03537 

06624 

11106742 


BRU 

SC54 

YES 




00353700 

03538 

06625 

15000275 


CMA 

a'275 

EQUAL * 

10/26/67 

JDJ 

«B 

00353800 

03539 

06626 

11106630 


BRU 

• ♦2 

N0 




00353900 

03540 

06627 

11106732 


BRU 

SC50 

YES 




00354000 

03541 

06630 

00000005 

SC16 

TAB 


CHAR T0 INDEX SAVE 




00354100 

03542 

06631 

15000253 


CMA 

s'253 

♦ 

10/26/67 

JDJ 

*B 

00354200 

03543 

06632 

11106634 


BRU 

*+2 

N0 




00354300 
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03544 

06633 

11106667 


BRU 

SC30 

YES 




00354400 

03545 

06634 

15000255 


CMA 

»• 255 

- 

10/26/67 

JDJ 

ftB 

00354500 

03546 

06635 

11106637 


BRU 

ft*2 

N0 




00354600 

03547 

06636 

11106670 


BRU 

SC31 

YES 




0U354700 

03548 

06637 

15000254 


CMA 

■ * 254 

» 

10/26/67 

JDJ 

*B 

00354800 

03549 

06640 

11106642 


BRU 

**2 

N0 




00354900 

03550 

06641 

11106661 


BRU 

SC26 

YES#C0MMA FIELD TERMINAT0 




00355000 

03551 

06642 

15000240 


CMA 

ft 1 240 

SPACE 

10/26/67 

JDJ 

«B 

00355100 

03552 

06643 

11106645 


BRU 

*♦2 

N0 




00355200 

03553 

06644 

11106655 


BRU 

SC24 

YES,SPACE FIELD TERM, 




00355300 

03554 

06645 

12102330 

SC20 

SPB 

FWER 

ERROR, NOT SPACE 

09/21/67 

JDJ 


00355400 

03555 

06646 

12107241 

SC22 

SPB 

SCF 

FETCH NEXT CHARACTER 




00355500 

03556 

06647 

11106630 


BRU 

SC16 

SCAN UNTIL TERMINATOR 




00355600 

03557 

06650 

01100174 

sen 

LAA 

L0AD 





00355700 

03558 

06651 

02017000 


lba 

ft' 17000 


10/26/67 

JDJ 

»B 

00355800 

03559 

06652 

00000027 


ABA 






Oi 

03560 

06653 

00000020 

V 

ASC 






0 0 >• ‘ 

03561 

06654 

11107461 


BRU 

CA1L-2 

T0 CALL PSEUD0-0P 




00' 

03562 



» 







0 0 3 P 0 c; 

03563 

06655 

01100165 

SC24 

LAA 

sccc 

CARD COLUMN POSITION 




003563 

03564 

06656 

15000014 


CMA 

*12 


10/26/67 

JDJ 


003564 

03565 

06657 

11106661 


BRU 

SC26 

NO 




0Q35650U 

03566 

06660 

11106572 


BRU 

SC12 

ignore space in column n 




00356600 

03567 

06661 

04100162 

SC26 

STB 

SCTM 

SET TERMINATOR CHARACTER 




00356700 

03568 

06662 

12107274 


SPB 

SCA 

ADJUST ADDR.F0R SIGN 




00356800 

03569 

06663 

00000025 


S0F 


OVERFLOW 




00356900 

03570 

06664 

12102330 


SPB 

FWER 

ERROR ADDRESS OVER 15 BITQ9/21/67 

JDJ 


00357000 

03571 

06665 

01100170 


LAA 

SCAD 

NO,PICK UP SCAN ADDRESS 




00357100 

03572 

06666 

11306556 


BRU« 

SCAN 

EXIT SCAN 




00357200 

03573 



* 







00357300 

03574 



« 







00357400 

03575 

06667 

00000003 

SC30 

CLA 


SET SIGN ♦ 




00357500 

03576 

06670 

00000005 

SC31 

TAB 


SIGN TO INDEX 




00357600 

03577 

06671 

12107274 


SPB 

SCA 

ADJUST ADDR,FOR SIGN 




00357700 

03578 

06672 

04100166 


STB 

SCSN 

NEW SUB FIELD SIGN 




00357800 

03579 

06673 

00000004 


TBA 






00357900 
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03580 

06674 

00000022 


SA2 






00358000 

03581 

06675 

01000000 


LAA 

8*100000 


10/26/67 

JDJ 

*B 

00358100 

03582 

06676 

03100143 


STA 

MIND 





0 358200 

03583 

06677 

11106570 


BRU 

SC10 

PR0CESS NEXT SUB FIELD 




0 358300 

03584 



» 







00358400 

03585 






0CTAL NUMBER PR0CESS0R 




00358500 

03586 

06700 

00001516 

SC34 

LSI 

13 

SET 0CTAL DIGIT LEFT 




00358600 

03587 

06701 

02100167 


IBA 

SCSA 





00358700 

03588 

06702 

00000314 


FRL 

3 

DIGIT INT0 SUBADDR. 




00358800 

03589 

06703 

04100167 


STB 

SCSA 





00358900 

03590 

06704 

00000022 


SA2 






00359000 

03591 

06705 

11106645 


BRU 

SC2Q 

ERR0R,,,0VER 16 BITS 




00359100 

03592 

06706 

12107241 

SC36 

SP8 

SCF 

FETCH NEXT CHARACTER 




00359200 

03593 

06707 

15000267 


CMA 

s ’267 

7 

10/26/67 

JDJ 

«B 

00359300 

03594 

06710 

12107266 

V 

SPB 

SCD 

CHECK F0R 0-6 




0(159400 

03595 

06711 

11106700 


BRU 

SC34 

CHAR r 0-7 




Of J59f 

03596 

06712 

11106630 


BRU 

SC16 

CHECK F0R TERM.CHAR, 




0, '596C . 

03597 



* 







OC 597 ,r 

03598 



* 



DECIMAL INTEGER PR0CESS0R 




01 5980 

03599 

06713 

06000260 

SC40 

SMA 

s*260 

ASCII 0 

10/26/67 

JDJ 

*B 

00 5990 f 

03600 

06714 

03100162 


STA 

SCTM 

REM0VE ASCII BIAS 




00 *60Q0u 

03601 

06715 

01100167 


LAA 

SCSA 

EFFECTIVELY MULTIPLY THE 




00 -60100 

03602 

06716 

00001612 


FRA 

14 

SUBADDR, BY 10 




00360200 

03603 

06717 

04100167 


STB 

SCSA 





00360300 

03604 

06720 

00000217 


FLA 

2 





00360400 

03605 

06721 

16100167 


AMB 

SCSA 





00360500 

03606 

06722 

16100162 


amb 

SCTM 

ADD CHAR T0 PR0DUCT 




00360600 

03607 

06723 

04100167 


STB 

SCSA 





00360700 

03608 

06724 

00000022 


SAZ 






00360800 

03609 

06725 

11106645 


BRU 

SC20 





00360900 

03610 

06726 

12107241 


SPB 

SCF 

FETCH NEXT CHARACTER 




00361000 

03611 

06727 

l2io?266 


SPB 

SCD 

CHECK CHAR F0R DIGIT 




00361100 

03612 

06730 

11106713 


BRU 

SC4Q 

CHAR s 0-9 




00361200 

03613 

06731 

U106630 


BRU 

SC16 

CHECK F0R TERM,CHAR, 




00361300 

03614 



• 







00361400 

03615 



« 


SET F0R 

LITERAL PR0CESS 




00361500 
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03616 

06732 

01106732 

SC50 

laa 

» 




00361600 

03617 

06733 

03100120 


STA 

SLIT 




00361700 

03618 

06734 

OH00060 


LAA 

EG 




00361800 

03619 

06735 

00000022 


SA2 





00361900 

03620 

06736 

11106645 


BRU 

SC20 




00362000 

03621 

06737 

00000003 


CLA 





00362100 

03622 

06740 

03100077 


STA 

IM 




00362200 

03623 

06741 

11105770 


BRU 

DAT2 

BACK INT0 DATA PSEUD0 

09/21/67 JDJ 


00362300 

03624 



• 






00362400 

03625 

06742 

12107241 

SC54 

SPB 

SCF 

FETCH NEXT CHAR 



00362500 

03626 

06743 

15000252 


CMA 

■ 252 

» 

10/26/67 JDJ 

*B 

00362600 

03627 

06744 

11106746 


BRU 

*♦2 

N0 



00362700 

03628 

06745 

11106646 


BRU 

SC22 

FETCH AND CHECK F0R TERM 

• 


00362800 

03629 

06746 

00000005 


TAB 


CHAR.T0 INDEX SAVE 



00362900 

03630 

06747 

01100172 


LAA 

RLC 




. 00363000 

03631 

06750 

03100171 

\ 

STA 

SCRL 




01 

03632 

06751 

01100173 


LAA 

LC 




00 

03633 

06752 

03100167 


STA 

SCSA 

SET SUBADDR, * L0C.CNTR, 



00 

03634 

06753 

00000004 


TBA 


REST0RE CHARACTER 



0 0 0 >3 * 

03635 

06754 

ili0663l 


BRU 

SC16+1 

CHECK F0R TERM,CHAR, 



003635 

03636 



» 






003636; 

03637 • 



* 






00363700 

03638 

06755 

00000000 

CLAX 

ZZZ 

0 

ENTER 



. 00363800 

03639 

06756 

02077632 


lba 

**■102 


10/26/67 JDJ 

#B 

00363900 

03640 

06757 

01000240 


LAA 

* 1 240 

SPACE 

10/26/67 JDJ 

*B 

00364000 

03641 

06760 

03510465 


STA 

AXB+102,1 

CLEAR 

JDJ 


00364100 

03642 

06761 

00000026 


IBS 


L00P 



00364200 

03643 

06762 

11106760 


BRU 

*•2 




00364300 

03644 

06763 

11306755 


BRU* 

CLAX 

EXIT 



00364400 

03645 



» 






00364500 

03646 

06764 

02077666 

PAGE 

lba 

s«»74 

M0VE 74 CHAR 

9/06/67 JDJ 


00364600 

03647 

06765 

01500536 


laa 

BFEN.l 

T0 TITLE AREA 

9/06/67 JDJ 


00364700 

03648 

06766 

03507162 


STA 

PGID-5,1 


9/06/67 JDJ 


00364800 

03649 

06767 

00000026 


IBS 


L00P 

9/06/67 JDJ 


00364900 

03650 

06770 

11106765 


BRU 

*-3 

BACK 74 TIMES 

9/06/67 JDJ 


00365000 

03651 

06771 

00000003 


CLA 


SET PAGE INDICAT0R 



00365100 
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03652 

06772 

03107020 


STA 

PIDI 

T0 VALID,I,E, SPID READ 



p 0 36 ' .00 

03653 

06 773 

03100542 


STA 

P4BD 

clear bcd value 

11/14/67 JDJ 


00365300 

03654 

06774 

01100422 


LAA 

BUFF+'20 

GET C0L 5 

11/14/67 JDJ 

#B 

0U365400 

03655 

06775 

12104252 


SPB 

PBCD 

PACK 

11/14/67 JDJ 

*B 

OO365500 

03656 

06776 

01100423 


laa 

BUFF+* 21 

GET C0L 6 

11/14/67 JDJ 


00365600 

03657 

06777 

12104252 


SPB 

PBCD 

PACK 

11/14/67 JDJ 


0 u365700 

03658 

07000 

12104261 


SPB 

MDBN 

C0NVERT LINES T0 BINARY 

11/14/67 JDJ 


00365800 

03659 

07001 

03107015 


STA 

lpge 

ST0RE F0R USAGE 

11/14/67 JDJ 

*B 

00365900 

03660 

07002 

12107005 


SPB 

2RPG 

G0 2ER0 PAGE 

9/06/67 JDJ 


00366000 

03661 

07003 

12107207 


SPB 

HDNG 

heading 

9/06/67 JDJ 


00366100 

03662 

07004 

11100702 


BRU 

EX02 

PR0CESS NEXT REC0RD 

9/06/67 JDJ 


00366200 

03663 



« 






00366300 

03664 

07005 

00000000 

2RPG 

»«» 

« « 

ENTER R0UTINE 

9/06/67 JDJ 


00366400 

03665 

07006 

01000260 


laa 

s'260 

ASCII 0 

10/26/67 JDJ 

«B 

. 00366500 

03666 

07007 

03107035 


STA 

PGBG+12 

PAGE 

9/06/67 JDJ 


00366600 

03667 

07010 

03107036 


STA 

PGBG+13 

C0UNT 

9/06/67 JDJ 


01 '.667 " 0 

03668 

07011 

03107037 


STA 

PGBG+14 

area 

9/06/67 JDJ 


01 '668-. 

03669 

07012 

01000261 


LAA 

s 1 261 

ASCII 1 

10/26/67 JDJ 

«B 

00 669 ; 

03670 

07013 

03107040 


STA 

PGBG+15 

IN PRINT AREA F0R HEADING9/06/67 JDJ 


0i 670 0! 

03671 

07014 

11307005 


BRU* 

ZRPG 

EXIT T0 MAIN PR0GRAM 

9/06/67 JDJ 


0L 6710 

03672 . 



* 






00 i6720 

03673 

07015 

oooooooo 

LPGE 

DATA 

0 

LINES PER PAGE IN SPIN 

9/06/67 JDJ 


0C '6730u 

03674 

07016 

00000000 

IPCT 

DATA 

0 

LINES C0UNTED T0WARD LPGE9/06/67 JDJ 


00 j67400 

03675 

07017 

00040444 

KPID 

DATA 

*40444 

PID 



00367500 

03676 

07020 

00000001 

p in i 

BSS 

1 

PAGE ID CARD INDICAT0R 



00367600 

03677 



» 






00367700 

03678 

07021 

00000261 

PG8G 

DATA 

*261,*240, 

*240,'240,*240,*240 



00367800 

03678 

07022 

00000240 








03678 

07023 

00000240 








03678 

07024 

00000240 








03678 

07025 

00000240 








03678 

07026 

00000240 








03679 

07027 

00000320 


DATA 

*320,*301, 

•307,*305,*240,*240 PAGE 



00367900 

03679 

07030 

00000301 








03679 

07031 

00000307 








03679 

07032 

00000305 
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03679 

03679 

03680 

03681 

03681 

03681 

03681 

03681 

03681 

03681 

03682 

03683 

03683 

03683 

03683 

03683 

03684 

03685 

03686 

03687 

03688 

03689 


07033 

07034 

07035 

07041 

07042 

07043 

07044 

07045 

07046 

07047 

07050 

07162 

07163 

07164 

07165 

07166 

07167 


00000240 

00000240 

00000004 

00000240 

00000240 

00000240 

00000240 

00000240 

00000240 

00000240 

00000112 

00000240 

00000240 

00000240 

00000240 

00000240 

00000001 


8SS 4 

DATA *240,*240,*240 i '240,'240,'240#’240 


BSS 74 

DATA *240,’240,'240,*240,'240 


PGID BSS 1 END PAGE AREA 

* CBBBBBPAGEBBXXXXBBBBBBBII I,,, F0RMAT 


HEADING LINE 


SUBR0UTINE CUN RETURNS T0 A + Q IF LINE 
IS EQUAL T0 THE SPID VALUE, 0R T0 A*1 
THAN THE $PID VALUE, PAGE C0UNT IS I 


E C0UNT 
1 IF LESS 
INCREMENTED 


00368000 

00368100 


00368200 

00368300 


003t 

0036 

003606 

003687 

00368c 

0 036890 0 


03690 



* IF 

LINE 

; C0UNT 

EQUALS SPID VALUE, 




00369000 

03691 

07170 

OOOOQDOO 

CLIN 

«»• 

»• 

INCREMENT LINE C0UNT 




00369100 

03692 

07171 

01107020 


LAA 

PIDI 

GET SPID INDICAT0R 




00369200 

03693 

07172 

00000024 


SAP 


TEST F0R SPID CARD 




00369300 

03694 

07173 

11107204 


BRU 

CLN1 

N0NE YET,IGN0RE HEADING 




00369400 

03695 

07174 

14107016 


IMS 

LPCT 

INCREMENT IN BINARY 

11/14/67 

JDJ 

• 8 

00369500 

03696 

07175 

01107016 


LAA 

LPCT 

T0 MATCH THE SPID CARD 




00369600 

03697 

07176 

15107015 


CMA 

LP6E 

C0UNT VS SPID VALUE 




00369700 

03698 

07177 

11107204 


BRU 

CLN1 

N0T YET EXIT T0 ADDRESS*! 




00369800 

03699 

07200 

00000033 


N0P 


EQUAL 




00369900 

03700 

07201 

02107206 


LBA 

APG8 

ADDRESS 0F C0UNTER 

10/17/67 

JDJ 

*B 

00370000 

03701 

07202 

12101066 


SPB 

DAFA 

G0 C0UNT IN DECIMAL BY 1 

10/17/67 

JDJ 

*B 

00370100 

03702 

07203 

11307170 

CLN2 

BRU* 

CUN 

EXIT N0RMAL 

JDJ 



00370200 

03703 

07204 

14107170 

CLN1 

IMS 

CLIN 

SET T0 ADDRESS ♦ 1 




00370300 
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03704 

07205 

11307170 


BRU# 

CLIN 

EXIT A*1 



: .370400 

03705 

07206 

35407040 

APGB 

DAC 

PGBG+15 

UNITS POSITION 0F ADDER 

10/17/67 

JDJ 

*B "'370500 

03706 

07207 

00000000 

HDNG 

*** 


ENTER HEADING R0UTINE 



0 370600 

03707 

07210 

00000003 


CLA 





C 370700 

03708 

07211 

03107016 


STA 

LPCT 

ZER0 LINE C0UTER 

JDJ 


0 370800 

03709 

07212 

01100126 


LAA 

PASS 

GET PASS 



00370900 

03710 

07213 

00000022 


SAH 


ZER0 LAST, OTHERWISE N0 



00371000 

03711 

07214 

11307207 


6RU» 

HDNG 

N0T FINAL PASS 



00371100 

03712 

07215 

00130401 


SMS 

1 

TEST F0R N0 SYMBOLIC LIST 

01/22/68 

JDJ *C 

003/1200 

03713 

07216 

11307207 


BRU* 

HDNG 


01/22/68 

JDJ *C 

00371300 

03714 

07217 

12103706 


SP8 

SSSS- 




00371400 

03715 

07220 

25401500 


DAC 

’1500 

SNS 13 SYS MAG 0UTPUT 



00371500 

03716 

07221 

11107232 


8RU 

HMGT 

G0 WRITE MAG HEADING 



00371600 

03717 

07222 

12103706 


SPB 

SSSS 

TRY F0R N0 PRINTER 



• 00371700 

03718 

07223 

25400400 

V 

DAC 

• 400 




0"371800 

03719 

07224 

11307207 


BRU* 

HDNG 

N0NE 



Ol 7' c “ 

03720 

07225 

01077774 


laa 

s-4 -4 

YES 

11/01/67 

JDJ 

*p on ' 72 , 

03721 

07226 

55i0QO0O 


CALL 

HI WR 

WRITE T0 PRINTER 

11/07/67 

JDJ 

*B 0 721 

03722 

07227 

35407021 


DAC 

PGBG 

PAGE HEADING 



OL 722.' 

03723 

07230 

00000146 


DATA 

102 




0 0 723* 

03724 

07231 

11307207 


BRU« 

HDNG 

- 



0 0 >724? 

03725 

07232 

02077632 

HMGT 

LRA 

= -102 


10/26/67 

JDJ 

*B 00 72500 

03726 

07233 

01507167 


LAA 

PGBG+102,1 

MOVE HEADING T0 



00372600 

03727 

07234 

03510465 


STA 

AXB+102,1 

AXB MAG TAPE BUFFER 



00372700 

03728 

07235 

00000026 


IBS 





00372800 

03729 

07236 

11107233 


8RU 

#-3 




00372900 

03730 

07237 

12110307 


SPB 

WMGT 

WRITE TAPE 



00373000 

03731 

07240 

11307207 


BRU* 

HDNG 

EXIT 



00373100 

03732 



« 


FETCH NEXT 

CHARACTER ROUTINE 



00373200 

03733 

07241 

25400000 

SCF 

DAC 

«« 

FETCH NEXT CHARACTER EXIT 



00373300 

03734 

07242 

02100165 


lba 

SCCC 

CARD COLUMN POSITION 



00373400 

03735 

07243 

14100165 


IMS 

SCCC 

INCREMENT C0LUMNP0SITION 



00373500 

03736 

07244 

01000112 


laa 

*74 

c.c, 73 End of card test 


9/70 RLD »E 00373600 

03737 

07245 

I5i00165 


CMA 

SCCC 

COL 73 

01/13/68 

JDJ *C 

00373700 

03738 

07246 

11107256 


BRU 

LAS 

C f C, 73 END OF CARD 


9/70 

RLD *E00373800 

03739 

07247 

11107256 


8RU 

LAS 

C,C, 73 END OF CARD 


9/70 

RLD #E00373900 
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03740 

07250 

01500415 


laa 

8UFF+*13,1 

NEXT BUFFER CHARACTER 




00374000 

03741 

07251 

15000240 


CMA 

p»240 

SPACE 

10/26/67 

JDJ 

*B 

00374100 

03742 

07252 

11107254 


BRU 

#+2 

N0 




00374200 

03743 

07253 

11107255 


8RU 

*+2 

CHAR * SPACE 




00374300 

03744 

07254 

04100163 


STB 

SCF0 

SET FIELD AS 0CCUPIED 




00374400 

03745 

07255 

11307241 


BRU* 

SCF 

EXIT FETCH NEXT CHARACTER 




00374500 

03746 

07256 

01000240 

LAS 

LAA 

= ’240 

F0RCE C.C, 73 T0 A SPACE 


9/70 

RLD » 

E00374600 

03747 

07257 

11307241 


BRU* 

SCF 

EXIT - END 0F CARD 


9/70 

RLD *E00374700 

03748 



« 







00374800 

03749 



* 







00374900 

03750 

07260 

25400000 

SCL 

DAC 

#* 

CHECK CHAR, F0R LETTER 




00375000 

03751 

07261 

15000333 


CMA 

=' 333 

2 + 1 

10/26/67 

JDJ 

*B 

00375100 

03752 

07262 

15000277 


CMA 

s* ’ 277 

A-2 T0 INCLUDE AT SIGN 

10/26/67 

JDJ 

*B 

00375200 

03753 

07263 

00000033 


N0P 


N0T A LETTER 

11/07/67 

JDJ 

*B 

00375300 

03754 

07264 

14107260 


IMS 

SCL 

SET N0N-LETTER EXIT 

11/07/67 

JDJ 

*8 

00375400 

03755 

07265 

11307260 


BRU* 

SCL 

EXIT 



» 

0t 

03756 



» 







00 < 

03757 



* 







00 

03758 

07266 

25400000 

SCD 

DAC 

«• 

CHECK CHAR, F0R DIGIT 




003/ -■ ; 

03759 

07267 

15000272 


cma 

* 1 272 

ASCII 10 

10/26/67 

JDJ 

*B 

00375^ 

03760 

07270 

15000257 


CMA 

s ’ 257 

ASCII -1 

10/26/67 

JDJ 

• B 

00376J 

03761 

07271 

00000033 


N0P 


SET N0N-DIGIT EXIT 

11/07/67 

JDJ 

*6 

00376100 

03762 

07272 

14107266 


IMS 

SCD 


11/07/67 

JDJ 

*6 

00376200 

03763 

07273 

11307266 


BRU* 

SCD 





00376300 

03764 



« 







00376400 

03765 



« 







00376500 

03766 

07274 

25400000 

SCA 

DAC 

** 

ADJUST SUB-ADDR, F0R SIGN 




00376600 

03767 

07275 

01100166 


LAA 

SCSN 

SIGN 0F SUB-ADDRESS 




00376700 

03768 

07276 

05077777 


AMA 

B-l 


10/26/67 

JDJ 

*B 

00376800 

03769 

07277 

03100166 


STA 

SCSN 

ADJUSTED 




00376900 

03770 

07300 

01100167 


LAA 

SCSA 





00377000 

03771 

07301 

14100166 


IMS 

SCSN 

SIGN b - 




00377100 

03772 

07302 

00000002 


NEG 






00377200 

03773 

07303 

05100170 


AMA 

SCAD 

ADD SUB-ADDR. T0 ADDR. 

11/07/67 

JDJ 

*B 

00377300 

03774 

07304 

03100170 


STA 

SCAD 





00377400 

03775 

07305 

11307274 


BRU* 

SCA 

EXIT 




00377500 



810 A/B 

: MACRO 

'-ASSEMBLER 

04 

40Q4E 

01/20/71 

PAGE 1©7 

03776 



« 


SYMBOL 

PR0CESS 


U037760Q 

03777 

07306 

02077776 

SYMP 

LBA 

s-2 

10/26/67 JDJ 

• B 

0H377700 

03778 

07307 

04100362 


STB 

CCNT 

SET SYM W0RD INDEX 


C 377800 

03779 

07310 

11107313 


9RU 

#♦3 

C0NTINUE 


0 377900 

03780 

07311 

12107443 


SPB 

ALNM 

NEXT CHAR ALPHANUMERIC 


0J378000 

03781 

07312 

11107335 


8RU 

SPOO 

N0 


00378100 

03782 

07313 

00001216 


LSL 

10 



00378200 

03783 

07314 

00000005 


TAB 




00378300 

03784 

07315 

04100367 


STB 

TMP5 

SAVE CHARACTER 


00378400 

03785 

07316 

01004040 


LAA 

s 1 4040 

10/26/67 JDJ 

*B 

00378500 

03786 

07317 

03100366 


STA 

SYM+1 

2ND W0RD SYMB0L 


00378600 

03787 

07320 

00000613 


FLL 

6 



00378700 

03788 

07321 

02100362 


LBA 

CCNT 

SYM W0RD INDEX 


. 00378800 

03789 

07322 

03500367 


STA 

SYM + 2 < 1 

SYMB0L W0RD 


00378900 

03790 

07323 

12107443 


SPB 

alnm 

NEXT CHAR ALPHANUMERIC 


0. '79000 

03791 

07324 

11107335 


BRU 

SPOO 

N0 


or '791 . 

03792 

07325 

02100367 


LBA 

TMP5 

PREVI0US CHARACTER 


0; 79L 

03793 

07326 

00001213 


FLL 

10 



Of 793!;. 

03794 

07327 

00000415 


RSL 

4 

PRESENT CHARACTER 


Ot 7940 

03795 

07330 

02100362 


LBA 

CCNT 

SYM W0RD INDEX 


OC .7951' 

03796 

07331 

03500367 


STA 

SYM + 2»1 

SYMB0L W0RD 


OC ’79fcCu 

03797 

07332 

14100362 


IMS 

CCNT 

I NCR,AND TEST SYM WD INDEX 


00 $79700 

03798 

07333 

11107311 


BRU 

SYMP+3 

L00P 


00379800 

03799 

07334 

11107336 


BRU 

SPOO+1 

C0NTINUE 


00379900 

03800 

07335 

04100165 

SP00 

STB 

C0LP 

BACKUP C0LUMN P0INTER 


00380000 

03801 

07336 

02100002 


LBA 

L0W 

TASS START 


00380100 

03802 

07337 

01400000 

SP01 

LAA 

0#1 

1ST WD TASS ITEM 


00380200 

03803 

07340 

00000022 


SAZ 


ZER0 


00380300 

03804 

07341 

11107370 


BRU 

SP02 

N0 


00380400 

03805 

07342 

01100173 


LAA 

LC 



00380500 

03806 

07343 

03400002 


STA 

2,1 

ZER0 0UT DEFINITI0N 


00380600 

03807 

07344 

01100365 


LAA 

SYM 

1ST WD SYM 


00380700 

03808 

07345 

05i00176 


AMA 

BAD 



00380800 

03809 

07346 

04100147 


STB 

TMPY 



00380900 

03810 

07347 

02100143 


LBA 

MIND 

- INDICAT0R 


00381000 

03811 

07350 

00000030 


0BA 




0038110f 



310 A/ 

8 A C P P 

'-ASSEMBLER 

O' 

44004E 

03812 

07351 

02100147 


LBA 

TMPY 

03813 

07352 

03400000 


STA 

0*1 

03814 

07353 

01100366 


LAA 

SYM*; 

03815 

07354 

00000020 


ASC 


03816 

07355 

03400001 


STA 

1*1 

03817 

07356 

16000003 


AMB 

*3 

03818 

07357 

00000004 


TBA 


03819 

07360 

06100001 


SMA 

HIGH 

03820 

07361 

00000023 


SAN 


03821 

07362 

11107365 


BRU 

#*3 

03822 

07363 

00000003 


CLA 


03823 

07364 

03400000 


STA 

0,1 

03824 

07365 

00130400 


SNS 

0 

03825 

07366 

11107416 


BRU 

SP05*3 

03826 

07367 

11107440 


BRU 

SP09 

03827 

07370 

00000416 

SP0 2 

LSL 

4 

03828 

07371 

00000415 

s 

RSL 

4 

03829 

07372 

15100365 


CMA 

SYM 

03830 

07373 

11107375 


BRU 

**2 

03831 

07374 

11107405 


BRU 

SP04 

03832 

07375 

16000003 

SP03 

AMB 

#3 

03833 

07376 

00000004 


tba 


03834 

07377 

06100001 


SMA 

HIGH 

03835 

07400 

00000024 


SAP 


03836 

07401 

11107337 


BRU 

SP01 

03837 

07402 

01000325 

SP10 

LAA 

«' 325 

03838 

07403 

03100404 


STA 

BUFF *2 

03839 

07404 

11107440 


BRU 

SP09 

03840 

07405 

01400001 

SP04 

LAA 

1*1 

03841 

07406 

00000416 


LSL 

4 

03842 

07407 

00000415 


RSL 

4 

03843 

07410 

06100366 


SMA 

SYM*1 

03844 

07411 

00000022 


SA2 


03845 

07412 

11107375 


BRU 

SP03 

03846 

07413 

01400001 

SP05 

LAA 

1,1 

03847 

07414 

00000023 


SAN 
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1ST WD TASS AREA 
2ND WD SYH 
UNDEF FLAG 
2ND WD TASS 

I NCR TASS INDEX 10/26/67 JDJ *B 

SAVE 

HIGH C0RE 

TASS INDEX LIMIT 

N0 

2ER0 SENTINEL 
T0 NEXT TASS ITEM 

C0NTINUE 


1ST WD TASS AND SYM EQUAL 

N0 

YES 

I NCR TASS INDEX 10/26/67 JDJ «B 

HIGH C0RE CELL 

TASS INDEX LIMIT REACHED 

N0,L00P 

U 10/26/67 JDJ *B 

C0NTINUE 

2ND WD TASS ITEM 


2ND WD SYM 
EQUAL 2ND WD TASS 
N0» L00P 

TASS ITEM DEFINED 


,381200 
u 381300 
r 381400 
iJ381500 
00381600 
00381700 
00381800 
00381900 
00382000 
00382100 
00382200 
00382300 
00382400 
00382500 

00 ' 

0 0 o c: • 

00 i .: 

00/830 

003831 

003832: . 

00383300 

00383400 

00383500 

00383600 

00383700 

00383800 

00383900 

00384000 

00364100 

00384200 

00384300 

00384400 

00384500 

00384600 

00384700 



>'10 A/! 
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04848 

0 7 415 

11107424 


8RU 

SPO 6 

YES 





03849 

07416 

01100126 


LAA 

PASS 





00384901 

03850 

07417 

00000022 


SAH 


2ND PASS 




0036500C 

03851 

07420 

11107440 


SRU 

SPQ9 

N0 




0038510r 

03852 

0 7421 

00130400 


SNS 

0 





00385201 

03853 

07422 

11107402 


BRU 

SP1Q 





00385301 

0 3854 

074 23 

1110/375 


BRU 

SPQ3 





0038540! 

03855 

07424 

0000003? 

SPO 6 

SN0 


D0UBLY DEFINED 




00385501 

03856 

07425 

11107430 


BRU 

SPO 7 

N0 




00385601 

03857 

07426 

01000315 


LAA 

= *315 

M 


10/26/67 

jn j »b 

00385700 

03858 

07427 

031004Q4 


STA 

RUFF+2 





00385800 

03859 

07430 

00000216 

spo 7 

LSL 

2 





00385900 

03860 

07431 

00000023 


SAN 


REL0CATA6LF 




00386000 

03861 

07432 

11107436 


BRU 

SP08 

N0 




00386100 

03862 

07433 

01100171 

s 

LAA 

REL 

FLIP 




00386200 

03863 

07434 

00000020 


ASC 


R6L0CATI0N 




0030*301 

03864 

07435 

03100171 


STA 

REL 

FLAG 




0 0 3 <■ 0 

03865 

07436 

01400002 

SP03 

LAA 

2,1 

DEFINITI0N 




003P ■ f 

03866 

07437 

11107441 


BRU 

SP09+1 

C0NTJNUE 




0 0 38 >■> 

03867 

0744Q 

00000003 

SP0 9 

CLA 






00386 v 

03868 • 

07441 

03100167 


STA 

SCSA 





0038 6tOO 

03869 

07442 

11106646 


BRU 

SC22 





00386900 

03870 

07443 

25400000 

alnm 

DAC 






00387000 

03871 

07444 

12107241 


SPB 

SCF 





00387100 

03872 

07445 

15000244 


CMA 

s *244 

J 


10/26/67 

JDJ «B 

00387200 

03873 

07446 

11307443 


BRU* 

alnm 

LESS THAN, N6?N AN 

EXIT 



003w7300 

03874 

07447 

11107455 


BRU 

ALQO 

EQUAL 




00387400 

03875 

07450 

12107260 


SPB 

RCL 

alph 




00387501 

03876 

07451 

11107455 


BRU 

ALOO 

YES 




0 038 3-5 DO 

03877 

07452 

12107266 


SPB 

SCD 

NUMERIC 




00387700 

03878 

07453 

11107455 


BRU 

ALOO 

YES 




003878 DC 

03879 

07454 

11307443 


BPU# 

ALNM 

N0N AN EXIT 




00387900 

03880 

07455 

14107443 

AL00 

IMS 

ALNM 

SET AN EXIT 




003980 OC 

03881 

07456 

11307443 


BRU# 

alnm 

AN EXIT 




0 0 33.81^ 

03882 

07457 

12102630 

CALL 

SPB 

LABP 

PR0CESS THE LABEL 

FIELD 

09/21/67 

JDJ 

0038820. 

038Q3 

07460 

01012000 


LAA 

**112000 





00388. 
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03884 

07461 

11107506 


BRU 

BWT 





*F u 388400 

03885 

07462 

00000000 

BWT2 

BSS 

0 





*£00388500 

03886 

07462 

04100175 


STB 

DATA 

SET INDIRECT BIT 




0J388600 

03887 

07463 

03100174 

CA1L 

STA 

L0AD 





00388700 

03888 

07464 

01100172 


LAA 

RLC 





00388800 

03889 

07465 

00000023 


SAN 






00388900 

03890 

07466 

11107470 


BRU 

*♦2 





00389000 

03891 

07467 

01020000 


LAA 

s’20000 


10/26/67 

JDJ 

*B 

00389100 

03892 

07470 

05100174 


AMA 

L0AD 





00389200 

03893 

07471 

03100174 


STA 

L0AD 





00389300 

03894 

07472 

01040000 


LAA 

5*40000 


10/26/67 

JDJ 

*B 

00389400 

03895 

07473 

03100127 


STA 

N AC A 





00389500 

03896 

07474 

12107557 


SPB 

FTCH 

PICK UP SUBR NAME 

09/21/67 

JDJ 


00389600 

03897 

07475 

11106231 


BRU 

C2AL 


09/21/67 

JDJ 


00389700 

03898 

07476 

06000240 

CAL4 

SMA 

s*240 

SPACE 

10/26/67 

JDJ 

*B 

. 00389800 

03899 

07477 

00000022 


SA2 






01 

03900. 

07500 

i2i02330 

\ 

SPB 

FWER 

ERR0R DELIMITER N0T SPACE09/21/67 

JDJ 


00- 

03901 

07501 

12101614 


SPB 

LIN 

LIST A LINE 

09/21/67 

JDJ 


00 

03902 

07502 

14100173 


IMS 

LC 

ADVANCE L0C C0UNTER 




oo>;oo 

03903 

07503 

12102132 


SPB 

PNCH 

DATA T0 PUNCH BUFFER 

09/21/67 

JDJ 


00390. 

03904 

07504 

12110041 


SPB 

CAL2 

SET UP CALL SEQUENCE 

09/21/67 

JDJ 


00390 

03905 

07505 

11100702 


BRU 

EX02 

G0 PR0CESS NEXT REC0RD 

09/21/67 

JDJ 


003905UU 

03906 



* 







*£00390600 

03907 

07506 

00000800 

BWT 

BSS 

0 





•E00390700 

03908 

07506 

03107557 


STA 

FTCH 

SAVE A-REGISTER 




*E00390800 

03909 

07507 

Q2i0Q044 


LBA 

D2R0 

50 




*£00390900 

03910 

07510 

01100426 


LAA 

BUF* * 24 

C0LUMN 9 




•E00391000 

03911 

07511 

06000252 


SMA 

**252 

« # 




♦E00391100 

03912 

07512 

08000022 


SA2 


SKIP IF IT WAS AN ASTERISK 



•E00391200 

03913 

07513 

11107515 


BRU 

*♦2 

N0T AN ASTERISK 




♦E00391300 

03914 

07514 

02000000 


LBA 

s<100000 





#£00391400 

03915 

07515 

01107557 


LAA 

FTCH 

REST0RE A-REGISTER 




♦E00391500 

03916 

07516 

11107462 


BRU 

BWT2 





*E0039i600 

03917 



• 







#£00391700 

03918 

07517 

12102630 

NAME 

SPB 

LABP 

G0 PR0CESS THE LABEL 

09/21/67 

JDJ 


00391800 

03919 

07520 

02000000 


LBA 

5*100000 





00391900 
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044004E 


03920 

07521 

01100172 


LAA 

RLC 

03921 

07522 

00000022 


SAZ 


03922 

07523 

16020000 


AMB 

=’20000 

03923 

07524 

04100174 


STB 

L0AD 

03924 

07525 

00000003 


CLA 


03925 

07526 

03100127 


STA 

NACA 

03926 

07527 

12107557 


SPB 

FTCH 

03927 

07530 

06000254 


SMA 

« *254 

03928 

07531 

00000022 


SAZ 


03929 

07532 

11107552 


BRU 

NAM3 

03930 

07533 

03100175 


STA 

DATA 

03931 

07534 

00130400 


SNS 

0 

03932 

07535 

11107537 


BRU 

# + 2 

03933 

07536 

11107545 


BRU 

NAM2-1 

03934 

07537 

12106556 

V 

SPB 

SCAN 

03935 

07540 

01100170 


LAA 

SCAD 

03936 

07541 

03100175 


STA 

DATA 

03937 

07542 

01100163 


LAA 

SCF0 

03938 

07543 

00000022 


SAZ 


03939 

07544 

11107546 


BRU 

« + 2 

03940 

07545 

12102330 


SPB 

FWER 

03941 

07546 

12101614 

NAM2 

SPB 

LIN 

03942 

07547 

12102132 


SPB 

PNCH 

03943 

07550 

12110041 


SPB 

CAL2 

03944 

07551 

11100702 


BRU 

EX02 

03945 

07552 

05000014 

NAM3 

AMA 

= ’14 

03946 

07553 

00000022 


SAZ 


03947 

07554 

12102330 


SPB 

FWER 

03948 

07555 

03100175 


STA 

DATA 

03949 

07556 

11107546 


BRU 

NAM2 

03950 

07557 

25400000 

ftch 

DAC 

0 

03951 

07560 

02077772 


LBA 

8 —6 

03952 

07561 

04100147 


STB 

TMPY 

03953 

07562 

01000040 


LAA 

= ’40 

03954 

07563 

03500137 


STA 

NACA + 8»1 

03955 

07564 

00000026 


IBS 
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,0 



10/26/67 

JDJ 

<*B 

00392100 

J0392200 

PICK UP SUBR NAME 

09/21/67 

JDJ 


00392300 

00392400 

00392500 

00392600 

C0MMA 

10/26/67 

JDJ 

*B 

00392700 

DELIMITER N0T C0MMA 

2-PASS 

12/02/68 

MDL «C 

♦ 

OlJ 392800 
00392900 
00393000 
0 0 3 9 310 0 
00393200 
00393300 

PR0CESS VARIABLE FIELD 

09/21/67 

JDJ 


00393400 

VARIABLE FIELD EMPTY 

12/02/68 

MDL *C 


»0 3 9 3 s 0 0 
030 

'■0393V 


12/02/68 

MDL *C 


' 039. 


N0 


12/02/68 

MDL *C 


039c 

YES 


12/02/68 

MDL *C 


■ 039'“' „ 

LIST A LINE 


09/21/67 

JDJ 


0394100 

DATA T0 PUNCH 

BUFFER 

09/21/67 

JDJ 


J0394200 

SET UP CALLING 

SEQUENCE 

09/21/67 

JDJ 


0039430 

G0 PR0CESS NEXT CARD 

09/21/67 

JDJ 


00394400 



10/26/67 

JDJ 


00394500 

00394600 

DELIMITER N0T, 

0R SPACE 

09/21/67 

JDJ 


003947' 
00394800 
003949° 0 
00395000 



10/26/67 

JDJ 

*B 

00395100 

00395200 

N0 ASCII SPACE 


10/26/67 

JDJ 

*B 

003953° 0 

INITIALIZE T0 

SPACES 




0 039540 v 
003955 
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03956 

07565 

11107563 


BRU 

*-2 





395600 

03957 

07566 

12107241 


SP8 

SCF 

FETCH A CHARACTER 

09/21/67 

JDJ 


00395700 

03958 

07567 

12107260 


SPB 

SCL 

CHECK F0R A LETTER 

09/21/67 

JO J 


0 D395800 

03959 

07570 

11107601 


BRU 

FTC2 

CHAR* A-H 




0J395900 

03960 

07571 

12107266 


SPB 

SOD 

CHECK F0R A DIGIT 

09/21/67 

JDJ 


00396000 

03961 

07572 

11107601 


BRU 

FTC2 

CHAR *0-9 




00396100 

03962 

07573 

15000244 


CMA 

s’ 244 

$ 

10/26/67 

JDJ 

*B 

00396200 

03963 

07574 

11107576 


BRU 

*♦2 





00396300 

03964 

07575 

11107601 


BRU 

FTC2 

CHAR * S 




00396400 

03965 

07576 

12102330 


SPB 

FWER 

ILLEGAL CHARACTER 

09/21/67 

JDJ 


00396500 

03966 

07577 

01000240 


LAA 

a 1 240 

SPACE 

10/26/67 

JDJ 

*B 

00396600 

03967 

07600 

11307557 


BRU* 

FTCH 

EXIT 




00396700 

03968 

07601 

00001216 

FTC2 

LSI 

10 





00396800 

03969 

07602 

00001215 


RSL 

10 





00396900 

03970 

07603 

02100147 


LBA 

TMPY 





00397000 

03971 

07604 

03500137 


STA 

NACA + 8»1 





. 0 - 

03972 

07605 

00000026 


IBS 






ou 

03973 

07606 

11107611 


BRU 

#♦3 





or 

03974 

07607 

12107241 


SPB 

SCF 

READ A DELIMITER 

09/21/67 

JDJ 


00 v 

03975 

07610 

11307557 


BRU* 

FTCH 

EXIT 




0 0 J 9 7 

03976 

07611 

04100147 


STB 

TMPY 





00397 

03977 

07612 

12107241 


SPB 

SCF 

FETCH A CHARACTER 

09/21/67 

JDJ 


00397: „ 

03978 

. 07613 

15000240 


CMA 

* 1 240 

SPACE 

10/26/67 

JDJ 

*B 

00397800 

03979 

07614 

11107616 


BRU 

*♦2 





00397900 

03980 

07615 

11307557 


BRU* 

FTCH 

EXIT 




Q039800C 

03981 

07616 

15000254 


CMA 

s' 254 

C0MMA 

10/26/67 

JDJ 

*B 

00398100 

03982 

07617 

11107621 


BRU 

*♦2 





00398200 

03983 

07620 

11307557 


BRU* 

FTCH 

EXIT 




00398300 

03984 

07621 

11107601 


BRU 

FTC2 





00398400 

03985 

07622 

03100175 

C AL 3 

STA 

DATA 





00398500 

03986 

07623 

12102132 


SPB 

PNCH 

DATA T0 PUNCH BUFFER 

09/21/67 

JDJ 


00398600 

03987 

07624 

02100147 


LBA 

TMPY 





00398700 

03988 

07625 

00000026 


IBS 






00398800 

03989 

07626 

11107630 


BRU 

**Z 





00398900 

03990 

07627 

11310041 


BRU* 

CAL2 

EXIT FR0M CALL ADDRESS 

09/21/67 

JDJ 


00399000 

03991 

07630 

01500137 


laa 

NACA+8.1 





00399100 
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03992 

07631 

00001016 


LSI 

8 



J399200 

03993 

07632 

03100174 


STA 

L0AD 



U39930Q 

03994 

07633 

00000026 


IBS 




0 ‘399400 

03995 

07634 

01500137 


LAA 

NACA+8i1 



0 399500 

03996 

07635 

00001016 


LSI 

8 



00399600 

03997 

07636 

03100175 


STA 

DATA 



00399700 

03998 

07637 

00000026 


IBS 




00399800 

03999 

07640 

01500137 


LAA 

NACA+8,1 



00399900 

04000 

07641 

04100147 


STB 

TMPY 

SAVE INDEX 


00400000 

04001 

07642 

05100175 


AMA 

DATA 



00400100. 

04002 

07643 

11107622 


BRU 

CAL3 



00400200 

04003 

07644 

02100175 

FECP 

LBA 

DATA 


FEC 9-16-66 

00400300 

04004 

07645 

00000030 


0BA 



FEC 9-16-66 

00400400 

04005 

07646 

03100175 


STA 

DATA 


FEC 9-16-66 

00400500 

04006 

07647 

01100162 


LAA 

SCTM 


FEC 9-16-66 

0, 100600 

04007 

07650 

06000254 


SMA 

= *254 

C0MMA 

10/26/67 JDJ «B 

0( 100 

04008 

07651 

00000022 


SA2 



FEC 9-16-66 

Of iOOb 

04009 

07652 

11107654 


BRU 

*♦2 


FEC 9-16-66 

0( 0090 

04010 

07653 

12102330 


SPB 

fwer 

ERR0R 

09/21/67 JDJ 

Ot 010' 

04011 

07654 

12102630 


SPB 

LABP 

PR0CESS THE LABEL 

09/21/67 JDJ 

OC 10111 

04012 

07655 

11102416 


BRU 

MR26 

G0 CL0SE 0UT REC0RD 

09/21/67 JDJ 

00401201 

04013 

07656 

14i0O152 

MAP 

IMS 

MAPF 

set map flag 


00 101300 

04014 

07657 

11100702 


BRU 

EX02 

G0 PR0CESS NEXT LINE 

09/21/67 JDJ 

00401400 

04015 



« 


M0R PSEUD0-0P 

PR0CESS0R 


00401500 

04016 

07660 

12102630 

PS70 

SPB 

labp 

PR0CESS LABEL FIELD 

09/21/67 JDJ 

00401600 

04017 

07661 

12106556 


SPB 

SCAN 

SCAN THE VARIABLE FIELD 

09/21/67 JDJ 

00401700 

04018 

07662 

01100163 


LAA 

SCF0 



00401800 

04019 

07663 

00000022 


SA2 


FIELD EXISTS 


00401900 

04020 

07664 

12102330 


SPB 

FWER 

YES, ERR0R 

09/21/67 JDJ 

00402000 

04021 

07665 

12101614 


SPB 

LIN 

PRINT LINE 

09/21/67 JDJ 

00402100 

04022 

07666 

00000000 


HLT 


WAIT F0R INPUT 


00402200 

04023 

07667 

11100702 


BRU 

EX02 

GET NEXT CARD 

09/21/67 JDJ 

00402300 

04024 

07670 

00000003 

STR5 

CLA 




00402400 

04025 

07671 

03100077 


STA 

IM 



00402500 

04026 

07672 

01100120 


LAA 

SLIT 



00402600 

04027 

07673 

00000022 


SA2 




0040270L 
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04028 

07674 

11110070 


BRU 

SPT1 

04029 

07675 

12107241 


SP8 

SCF 

04030 

07676 

15000254 


CMA 

«’ 254 

04031 

07677 

11107701 


BRU 

**2 

04032 

07700 

11106012 


BRU 

DAT8 

04033 

07701 

15000240 


CMA 

s*240 

04034 

07702 

11107704 


BRU 

**2 

04035 

07703 

11106156 


BRU 

DA18 

04036 

07704 

15000257 


CMA 

h'257 

04037 

07705 

lli0771fl 


BRU 

8*3 

04038 

07706 

11106163 


BRU 

DA19 

04039 

07707 

11100702 


BRU 

EX02 

04040 

07710 

12102330 


SPB 

FWER 

04041 

07711 

11100702 


BRU 

EX02 

04042 

07712 

00000000 

SY14 

• «• 

*• 

04043 

07713 

04io7723 


STB 

svxi 

04044 

07714 

02077660 

\ 

LBA 

s-80 

04045 

07715 

01000240 


LAA 

s*240 

04046 

07716 

03500522 


STA 

BUFF* *120*1 

04047 

07717 

00000026 


IBS 


04048 

07720 

11107716 


BRU 

*-2 

04049 

07721 

02107723 


LBA 

SVXI 

04050 

07722 

11307712 


BRU* 

SY14 

04051 

07723 

00000000 

svxi 

DATA 

0 

04052 



« 


(ASR) LIS 

04053 

07724 

00000000 

LSCK 

«»« 

«# 

04054 

07725 

01107741 


laa 

LSFG 

04055 

07726 

00000022 


SAZ 


04056 

07727 

11107734 


BRU 

*♦5 

04057 

07730 

00000004 


TBA 


04058 

07731 

06100124 


SJ1A 

LLN0 

04059 

07732 

05000003 


AHA 

83 

04060 

07733 

11307724 


BRU* 

LSCK 

04061 

07734 

03101740 


STA 

LST*2 

04062 

07735 

00000003 


CLA 


04063 

07736 

03107741 


STA 

LSFG 
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G0 M0VE DATA T0 ID 

09/21/67 

JDJ 


fj u 4 0 2 8 0 0 

FETCH A CHARACTER 

09/21/67 

JDJ 


00402900 

C0MMA 

10/26/67 

JDJ 

*B 

00403000 





00403100 

BACK T0 SCAN WITH DIP 

09/21/67 

JDJ 


00403200 

SPACE 

10/26/67 

JDJ 

*B 

00403300 





00403400 

G0 TEST IF FDAT C0NTR0L 

09/20/67 

JDJ 


00403500 

SLASH 

09/20/67 

JDJ 


00403600 


MDL 1/31/69 

i *C 


00403700 

YES 0UTPUT FDAT W0RD 

09/20/67 

JDJ 


00403800 

PR0CESS NEXT CARD 

09/21/67 

JDJ 


00403900 

ERR0R 

09/21/67 

JDJ 


00404000 

PR0CESS NEXT CARD 

09/21/67 

JDJ 


00404100 

ENTER SUBR0UTINE 

09/21/67 

JDJ 


00404200 

SAVE XI 

09/21/67 

JDJ 


01 


10/26/67 

JDJ 

*B 

OC 

SPACE 

10/26/67 

JDJ 

*B 

OC 




CK A 

00' . 




CKA 

OQ.u '1 




CKA 

00404b 

REST0RE XI 

09/21/67 

JDJ 


004049bU 

EXIT 

09/21/67 

JDJ 


00405000 

TEMP ST0RAGE 

09/21/67 

JDJ 


00405100 

NG DELEMETER CHECK SUBR0UTINE 


RFH 

00405200 

ENTER SUBR0UTINE 

09/22/67 

JDJ 


00405300 

GET DELIMITER FLAG 

09/22/67 

JDJ 


00405400 

SET/RESET 



RFH 

00405500 

SET 



RFH 

00405600 




RFH 

00405700 




RFH 

00405800 


10/26/67 

JDJ 

*B 

00405900 

EXIT T0 CALL 

09/22/67 

JDJ 


00406000 

DELIMITER T0 CALL 

09/22/67 

JDJ 


00406100 

RESET FLAG 



RFH 

00406200 




RFH 

00406300 
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04064 

07737 

14107724 


IMS 

LSCK 

SET EXIT T0 

09/22/67 

JDJ 

i -.0400400 

04065 

07740 

11307724 


BRU* 

LSCK 

RETURN PLUS 0NE 

09/22/67 

JDJ 

00406500 

04066 

07741 

00000000 

LSFG 

222 


DELIMETER FLAG 


RFH 

00406600 

04067 





0*406700 

04068 



* change 

MADE T-'- 

A L1.0W PRINTING C0RRECTLV 0N ASF 

'33, JPD 


00406800 

04069 



ftftftftftftftftftftftftftftft*;# 

‘*Mfftft*ftftftftftft***ftftftft*ftftft*ft**ft#**ft*ftft 


00406900 

04070 

07742 

00000000 

LS7 

»«« 

«» 

ENTER SET DELIMITER 

09/22/67 

JDJ 

00407000 

04071 

07743 

03100015 


STA 

PRT4 

LINE PRINTER 

09/22/67 

JDJ 

00407100 

04072 

07744 

033.07741 


STA 

LSFG 

ASR 

09/22/67 

JDJ 

00407200 

04073 

07745 

11307742 


BRU* 

LS7 

EXIT 

09/22/67 

JDJ 

00407300 

04074 









00407400 

04075 



* 


CHECK F 

0R DEF INED/0CCUPI ED/SPACE TERM 



OM07500 

04076 

07746 

25400000 

PSCK 

DAC 

** 




0Of07600 

04077 



* 






* 00407700 

04078 









OC 407800 

04079 



V 

ft 






01 407'- ' 

04080 

07747 

01100164 


laa 

SCDF 

DEFINED FLAG 



0 1.4 0 8 D 

04081 

07750 

00000022 


SA2 





0040810 

04082 

07751 

12102330 


SPB 

FWER 

ERR0R -- UNDEFINED VAR 

09/22/67 

JDJ 

0L4082C 

04083 

07752 

01100163 


LAA 

SCF0 

0CCUPIED FLAG 



0040830 

04084 

07753 

00000022 


SA2 





0040840u 

04085 

07754 

11107757 


BRU 

*♦3 




00408500 

04086 

07755 

01000301 


LAA 

s * 301 

A 

10/26/67 

JDJ *6 

00408600 

04087 

07756 

03100404 


STA 

BUFF ♦ 2 




00408700 

04088 

07757 

01100162 


LAA 

SCTM 

TERM, CHARACTER 



00408800 

04089 

07760 

00001416 


LSL 

12 




00408900 

t 

04090 

07761 

00000024 


SAP 


SKIP IF A SPACE 



00409000 

04091 

07762 

12102330 


SPB 

FWER 

ERR0R, C0MMA TERMJNAT0R 

09/22/67 

JDJ 

00409100 

04092 

07763 

11307746 


BRU* 

PSCK 

EXIT 



00409200 

04093 



* 






00409300 

04094 



» 






00409400 

04095 



ft 






00409500 

04096 



ft 


MEM0PY 

REFERENCING INSTRUCTI0NS 



00409600 

04097 

07764 

12102630 

HREF 

SPB 

labp 

PR0CESS LABEL FIELD 

09/22/67 

JDJ 

00409700 

04098 

07765 

00000003 


CLA 





00409800 

04099 

07766 

02100175 


lba 

DATA 




00409901 
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044Q04E 


04100 

07767 

00000513 


FIL 

5 





J 0 410 0 0 0 

04101 

07770 

04100175 


STB 

DATA 





00410100 

04102 

07771 

00001016 


LSL 

8 





00410200 

04103 

07772 

05040000 


AMA 

s’40000 


10/26/67 

JDJ 

*B 

00410300 

04104 

07773 

03100174 


STA 

L0AD 





00410400 

04105 

07774 

01030000 


LAA 

3*30000 


10/26/67 

JDJ 

• B 

00410500 

04106 

07775 

03100176 


STA 

BAD 





00410600 

04107 

07776 

12106556 


spb 

SCAN 

SCAN VARIABLE FIELD 

09/22/67 

JD J 


00410700 

04108 

07777 

01100172 

XXXX 

laa 

RLC 


8/15/67 

JDJ 

*B 

00410800 

D4109 

10000 

00000023 


SAN 






00410900 

04110 

10001 

11110011 


BRU 

M999 





00411000 

04111 

10002 

01100171 


laa 

SCRL 





00411100 

04112 

10003 

00000022 


SAZ 






00411200 

04113 

10004 

11110006 


BRU 

* + 2 





00411300 

04114 

10005 

11110011 


BRU 

M999 




♦ 

0^11400 

04115 

10006 

01020000 

V 

laa 

s»20000 


10/26/67 

JDJ 

*B 

01 

04116 

10007 

05100174 


AMA 

L0AD 





00 

04117 

10010 

03100174 


STA 

L0AD 





00 

04118 

10011 

01100120 

M999 

LAA 

SLIT 


8/15/67 

JDJ 

♦ B 

0 0 Ht. 

04119 

10012 

00000022 


SAZ 






00411' 

04120 

10013 

11102566 


BRU 

LITR 

LITERAL I NSTRUCT10N 

09/22/67 

JDJ 


00412U 

04121 

10014 

01100126 


LAA 

PASS 





00412100 

04122 

10015 

00000022 


SAZ 


1 PASS ASSY 0R PASS 2 




00412200 

04123 

10016 

11110020 


BRU 

• + 2 

PASS 1 




00412300 

04124 

10017 

11110023 


BRU 

* + 4 

PASS 2 




00412400 

04125 

10020 

01100170 


LAA 

SCAD 





00412500 

04126 

10021 

00000024 


SAP 






00412600 

04127 

10022 

12102330 


SPB 

FWER 

ERR0R, ADDRESS SCAN 

09/22/67 

JDJ 


00412700 

04128 

10023 

01100170 


LAA 

SCAD 





00412800 

04129 

10024 

02077777 


LBA 

s»77777 


10/26/67 

JDJ 

*B 

00412900 

04130 

10025 

00000027 


ABA 






00413000 

04131 

10026 

05100175 


AMA 

DATA 

ADD ADDR, T0 INSTR, 




00413100 

04132 

10027 

03100175 


STA 

DATA 





00413200 

04133 

10030 

01100162 


LAA 

SCTM 

TERMINAL CHARACTER 




00413300 

04134 

10031 

00001416 


LSL 

12 





00413400 

04135 

10032 

00000023 


SAN 






00413500 
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04136 

10033 

11102407 


BRU 

MR22 

FIELD 0CCUPIED 

09/22/67 

JDJ 


U 0413600 

04137 

10 034 

12106556 


SPB 

SCAN 

SCAN F0R INDEX 

09/22/67 

JDJ 


00413700 

04138 

10035 

15000001 


CMA 

*1 


10/26/67 

JDJ 

*B 

00413800 

04139 

10036 

00000023 


SAN 






00413900 

04140 

10037 

11102373 


BRU 

PS20 

W0RK 0N INDWX BIT 

09/22/67 

JDJ 


00414000 

04141 

10040 

11102415 


BRU 

MR24 

ERR0R , VACANT FIELD 

09/22/67 

JDJ 


00414100 

04142 

10041 

25400000 

CAL2 

DAC 

0 



< 


00414200 

04143 

10042 

01077777 


LAA 

**1 


10/26/67 

JDJ 

*6 

00414300 

04144 

10043 

03100415 


STA 

BUFF*’13 

SET TYPE LISTING DELIM 




00414400 

04145 

10044 

01000025 


laa 

» 1 25 


10/26/67 

JDJ 


00414500 

04146 

10045 

03100015 


STA 

PRT4 

SET LISTING DELIMITER 

09/22/67 

JDJ 


00414600 

04147 

10046 

01100153 


LAA 

SIZE 





00414700 

04148 

10047 

05100130 


AMA 

NACA*1 





00414800 

04149 

10050 

03100130 


STA 

NACA*1 


K 



00414900 

04150. 

10051 

02077770 

\ 

LBA 

r 8 


10/26/67 

JDJ 

#B 

00415000 

04151 

10052 

01500137 


LAA 

NACA*8,1 





00415100 

04152 

10053 

03100174 


STA 

L0AD 





00'41520l 

04153 

10054 

00000026 


IBS 






0041530C 

04154 

10055 

04100147 


STB 

TMPY 





00'*1540' 

04155 

10056 

01500137 


laa 

NACA*8,1 





OOh1550u 

04156 

10057 

11107622 


BRU 

CAL3 

G0 SET A T0 DATA 

09/22/67 

JDJ 


00415600 

04157 

10060 

01077776 


LAA 

*•2 


10/26/67 

JDJ 


'00415700 

04158 

10061 

03100105 


STA 

H0LD 





00415800 

04159 

10062 

12107241 

SPLT 

SPB 

SCF 

FETCH A CHARACTER 

09/22/67 

JDJ 


00415900 

04160 

10063 

15000247 


CMA 

s • 247 

AP0S 

10/26/67 

JDJ 


00416000 

04161 

10064 

11110066 


BRU 

*♦2 





00416100 

04162 

10065 

11110150 


BRU 

STR4 





00416200 

04163 

10066 

12102330 


SPB 

FWER 

ERR0R, N0T A C0MMA 

09/22/67 

JDJ 


00416300 

04164 

10067 

03100175 


STA 

DATA 





00416400 

04165 

10070 

01100175 

SPT1 

laa 

DATA 





00416500 

04166 

10071 

03100074 


STA 

ID 





00416600 

04167 

10072 

01105746 


LAA 

FD0P 

TEST IF FDAT C0NTR0L 

09/20/67 

JDJ 


00416700 

04168 

10073 

00000024 


SAP 


PLUS N0 

09/20/67 

JDJ 


00416800 

04169 

10074 

11103403 


BRU 

D16 

MINUS YES SET DIP IN ERR 

09/20/67 

JDJ 


00416900 

04170 

10075 

11102571 


BRU 

LIT1 

LITERAL STRING 

09/22/67 

JDJ 


00417000 

04171 

10076 

01020240 

STRA 

laa 

b 1 120240 

2 BLANKS 

10/26/67 

JDJ 


00417100 
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04172 

10077 

03100121 


STA 

bcil 





00417200 

04173 

10100 

03100175 


STA 

DATA 





0Q417300 

04174 

10101 

Q1077776 


laa 

c-2 


10/26/67 

JDJ 

• B 

00417400 

04175 

10102 

03100105 


STA 

HOLD 





00417500 

04176 

10103 

12107241 

STR1 

SPB 

SCF 

FETCH A CHARACTER 

09/22/67 

JD J 


00417600 

04177 

10104 

03100104 


STA 

FET9 





00417700 

04178 

10105 

15000247 


CMA 

■ '247 

AP0S 

10/26/67 

JDJ 

*B 

00417800 

04179 

10106 

iiiiono 


BRU 

*♦2 





00417900 

04180 

10107 

11110136 


BRU 

STR2 





00418000 

04181 

10110 

02100175 

STR3 

lba 

DATA 





00418100 

04182 

10111 

00001016 


LSI 

8 





00418200 

04183 

10112 

00001014 


FRL 

8 





00418300 

04184 

10113 

Q4i00175 


STB 

DATA 





00418400 

04185 

10114 

14100105 


IMS 

HOLD 





00418500 

04186 

10115 

11110103 


BRU 

STR1 





* jj" 41 

04187 

10116 

01100120 


laa 

SLIT 





o. 

04188 

10117 

00000022 


SAH 






0 

04189 

10120 

11110060 


BRU 

SPLT-2 

LITERAL FLAG IS ON 




0 

04190 

10121 

01105746 


LAA 

FDOP 

TEST FOR FDAT CONTROL 

09/20/67 

JDJ 


o f nv 

04191 

10122 

00000023 


SAN 


MINUS IS FDAT CONTROL 

09/20/67 

JDJ 


0041 r 

04192 

10123 

11110126 


BRU 

DA16 

NOT FDAT CONTROL 

09/20/67 

JDJ 


0 0 41 r 

04193 

10124 

12105725 


SPB 

FDST 

STORE VALUE IN TABLE 

09/20/67 

JDJ 


OQ419o0O 

04194 

10125 

11110076 


BRU 

STRA 

GO TEST FOR COMMA SHOULD 

09/20/67 

JDJ 


00419400 

04195 

10126 

12101614 

DA16 

SPB 

LIN 

LIST A LINE 

09/20/67 

JDJ 


00419500 

04196 

10127 

14100173 


IMS 

LC 





0041960G 

04197 

10130 

I2i02132 


SPB 

PNCH 

DATA TO PUNCH BUFFER 

09/22/67 

JDJ 


00419700 

04198 

10131 

01077777 


LAA 

■ -1 


10/26/67 

JDJ 

#B 

0041980 H 

04199 

10132 

03100415 


STA 

BUFF♦'13 

SET LISTING DELIMITER 




00419900 

04200 

10133 

01000025 


LAA 

= '25 


10/26/67 

JDJ 

*B 

00420000 

04201 

10134 

12107742 

LS9 

SPB 

LS7 

SET LISTING DELIMITER 

09/22/67 

JDJ 


00420100 

04202 

10135 

11110076 


BRU 

STRA 





00420200 

04203 

10136 

03100106 

STR2 

STA 

H0LD+1 





00420300 

04204 

10137 

12107241 


SPB 

SCF 

FETCH A CHARACTER 

09/22/67 

JDJ 


00420400 

04205 

10140 

15000247 


CMA 

s '247 

APOS 

10/26/67 

JDJ 

*B 

00420500 

04206 

10141 

11110143 


BRU 

*♦2 





00420600 

04207 

10142 

11110150 


BRU 

STR4 





00420700 
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04208 

10143 

01100165 


laa 

sccc 





00420800 

04209 

10144 

06000001 


SMA 

•1 


10/26/67 

JDJ 

*B 

00420900 

04210 

10145 

03100165 


STA 

sccc 





00421000 

04211 

10146 

01100106 


LAA 

H0LD+1 





00421100 

04212 

10147 

11110110 


BRU 

STR3 





00421200 

04213 

10150 

01100105 

STR4 

laa 

H0LD 





00421300 

04214 

10151 

05000002 


AMA 

>2 


10/26/67 

JDJ 


00421400 

04215 

10152 

00000022 


SAH 






00421500 

04216 

10153 

11110155 


BRU 

*♦2 





00421600 

04217 

10154 

11107670 


BRU 

STR5 

C0NT READ LITERAL STRING 

09/22/67 

JDJ 


00421700 

04218 

10155 

01100175 


laa 

DATA 





00421800 

04219 

10156 

02020240 


LBA 

*'120240 

2 SPACES 

10/26/67 

JDJ 

• B 

00421900 

04220 

10157 

00001013 


FLl 

8 





* 00422000 

04221 

10160 

03100175 

V 

STA 

DATA 





00422100 

04222 

10161 

01100120 


LAA 

SLIT 





00422200 

04223 

10162 

00000022 


SA2 






00422300 

04224 

10163 

11110070 


BRU 

SPT1 

LITERAL FLAG IS 0N 




00422400 

04225 

10164 

01105746 


LAA 

FD0P 

TEST IF FDAT IN C0MTR0L 

09/20/67 

JDJ 


00422500 

04226 

10165 

000QUO23 


SAN 


MINUS YES 

09/20/67 

JDJ 


00' 22*00 

04227 

10166 

11110171 


BRU 

DA17 

PRUS N0 MUST BE DATA 0P 

09/20/67 

JDJ 


QJN-22 7 0 u 

04228 

10167 

12105725 


SPB 

FDST 

FDAT G0 ST0RE INVALID 

09/20/67 

•JDJ 


0042280U 

04229 

10170 

11107670 


BRU 

STR5 

SET T0 SINGLE PRECISI0N 

09/20/67 

JDJ 


00422900 

04230 

10171 

12101614 

DA17 

SPB 

LIN 

LIST A LINE 

09/20/67 

JDJ 


00423000 

04231 

10172 

14100173 


IMS 

LC 





00423100 

04232 

10173 

12102132 


SPB 

PNCH 

DATA T0 PUNCH BUFFER 

09/22/67 

JDJ 


00423200 

04233 

10174 

11107670 


BRU 

STR5 

G0 PR0CESS LITERAL INPUT 

05/22/67 

JDJ 


00423300 

04234 




'■ e # 



00423400 

04235 



* INSERT I 0N 0F F0LL0WING SUBR0UTINE S0 THAT -N0T 

NECESSARY 

T0 


00423500 

04236 



• T0 

HAVE 

A HARDWARE 

MULTIPLY T0 ASSEMBLE JPD 




00423600 

04237 






00423700 

04238 



« 







00423800 

04239 



* s^tware simulatin' 

0F MULTIPLY TW0 NUMBERS T0 

BE MULTIPLIED IN 


00423900 

04240 



* A 

♦ 8 

REGISTERS 





00424000 

04241 



* RESULTS IN A ♦ B 





00424100 

04242 



» 







00424200 

04243 

10175 

00000000 

MTPY 

ZZ2 






00424300 
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04244 

10176 

03110257 

STA 

SAVA 

04245 

10177 

00000003 

CLA 


04246 

10200 

03110260 

STA 

CHEK 

04247 

10201 

03110261 

STA 

ADD 

04248 

10202 

01077761 

laa 

**15 

04249 

10203 

03110262 

STA 

C0UN 

04250 

10204 

01110257 

LAA 

SAVA 

04251 

10205 

00000024 

SAP 


04252 

10206 

11110245 

BRU 

NEGA 

04253 

10207 

00000004 C0N0 

TBA 


04254 

10210 

00000024 

SAP 


04255 

10211 

11110251 

BRU 

NEGB 

04256 

10212 

OlOODOOl L00P 

LAA 

*1 

04257 

10213 

00000027 

ABA 


04258 

10214 

00000022 

sa i 


04259 . 

10215 

11110242 

BRU 

0NE 

04260 

10216 

01110261 

LAA 

ADD 

04261 

10217 

66606112 5HIF 

rn* 

1 

04262 

10220 

00000024 

SAP 


04263 

10221 

00000020 

ASC 


04264 

10222 

03110261 

STA 

ADD 

04265 

• 10223 

14110262 

IMS 

C0UN 

04266 

10224 

11110212 

BRU 

L00P 

04267 

10225 

03110257 0UT 

STA 

SAVA 

04268 

10226 

01110260 

LAA 

CHEK 

04269 

10227 

00000023 

SAN 


04270 

10230 

11110240 

BRU 

0UT1 

04271 

10231 

01U0257 

LAA 


04272 

10232 

00000006 

ImB 


04273 

10233 

0000000? 

NEG 


04274 

10234 

OCGQon C ' e 

JAB 


ft497S 

u * v f y 

10235 

00000007 

CSB 


04276 

10236 

00000002 

neg 


04277 

10237 

11310175 

B.RU* 

MTPY 

04278 

10240 

01110257 0UT1 

LAA 

SAVA 

04279 

10241 

11310175 

BRU* 

MTPY 
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11/01/67 JDJ 


11/01/67 JDJ 


i U42440Q 
00424500 
00424600 
004247QO 
*B 00424800 
00424900 
00425000 
00425100 
00425200 
00425300 
00425400 
00425500 
•B00425600 
00425700 



00 «- 

004262 

00426? 


004264C 

00426500 

00426600 

00426700 

00426800 

00426900 

00427000 

00427100 

00427200 

00427300 

00427400 

00427500 

00427600 

00427700 

00427800 

00427900 
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04280 

10242 

01110261 

0NE 

IAA 

ADD 




v3 42 c 000 

04281 

10243 

05110257 


AMA 

SAVA 




'0428100 

04282 

10244 

11110217 


BRU 

SHIF 




00428200 

04283 

10245 

03110260 

NEGA 

STA 

CHEK 




00428300 

04284 

10246 

00000002 


NEG 





00428400 

04285 

10247 

03110257 


STA 

SAVA 




00428500 

04286 

10250 

11110207 


BRU 

C0N0 




00428600 

04287 

10251 

GO0OOOO2 

NEGB 

NEG 





00428700 

04288 

10252 

00000005 


TAB 





00428800 

04289 

10253 

01110260 


LAA 

CHEK 




00428900 

04290 

10254 

00000020 


ASC 





00429000 

04291 

10255 

03110260 


STA 

CHEK 




00429100 

04292 

10256 

11110212 


BRU 

L00P 




00429200 

04293 

10257 

00000000 

SAVA 

222 





00429300 

04294 

10260 

00 O 00000 

CHEK 

222 





00429400 

04295 

10261 

00000000 

ADD 

222 

*# ■ 




0 L 4 2 9 5 0 r 

04296 

10262 

00 G 00000 

C0UN 

222 

** 




0C4296T 

04297 



» - 






004297 

04298 



* WRITE SYMB0LIC 0UTPUT 

0N MAGNETIC TAPE BCD 1 

CHAR/W0RD 


0C4296r 

04299 



» 






0 0 4299 1 

04300 



• 






0043000.. 

04301 

10263 

04110315 

MSYM 

STB 

AXB-2 

SAVE B AS XI 

JDJ 8/11/67 

*8 ' 

00430100 

04302 

10264 

12107170 


SPB 

CLIN 

C0UNT LINES 



00430200 

04303 

10265 

12107207 


SPB 

HDNG 

MAG TAPE HED * N0T LABEL 

9/67/12 JDJ 


00430300 

04304 

10266 

02077632 


LBA 

*-102 


10/26/67 JDJ 

*B 

00430400 

04305 

10267 

01500536 


LAA 

LN0-1+1Q2,! 

M0VE BUE LN0 T0 AXB 8UF 

JDJ 8/11/67 

«B 

00430500 

04306 

10270 

03510465 


STA 

AXB+102,1 


JDJ 8/11/67 


00430600 

04307 

10271 

00000026 


IBS 



JDJ 8/11/67 

*B 

00430700 

04308 

10272 

11110267 


BflU 

#—3 


JDJ 8/11/67 

*B 

00430800 

04309 



« 




9/06/67 JDJ 


00430900 

04310 

10273 

01000146 


LAA 

*102 


10/26/67 JDJ 

«B 

00431000 

04311 

10274 

15100015 


CMA 

PRT4 

102 T0 LENGTH 0F BUFF 

9/06/67 JDJ 


00431100 

04312 

10275 

11110277 


BRU 

*♦2 

N0 THEN ASSUME '25 

9/06/67 JDJ 


00431200 

04313 

10276 

11110305 


BRU 

W102 

WRITE 102 FULL CHAR 

9/06/67 JDJ 


00431300 

04314 

10277 

02077657 


LRA 

*-81 

CLEAR 0FF 81 CHARACTERS 

9/06/67 JDJ 


00431400 

04315 

10300 

01000240 


LAA 

* '240 

SPACE 

10/26/67 JDJ 

*B 

00431501 
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04316 

10301 

03510465 


sta 

AXB*1Q2,1 

CLEAR RIGHT SIDE 

9/06/67 JDJ 

i.u43160Q 

04317 

10302 

00000026 


IBS 


L00P 

9/06/67 JDJ 

00431700 

04318 

10303 

11110301 


BRU 

*-2 


9/06/67 JDJ 

00431800 

04319 

10304 

02110315 


LBA 

AXB-2 

REST0RE B 

JDJ 

8/11/67 

*B 00431900 

04320 

10305 

12110307 

W102 

SPB 

WMGT 

WRITE MAG TAPE 9 

9/06/67 JDJ 

G 0432000 

04321 

10306 

11101717 


BRU 

AFSY 

RETURN T0 MAIN PR0GRAM 

JDJ 

8/11/67 

*B 00432100 

04322 

10307 

00000000 

WMGT 

*** 

• o 

WRITE MAG TAPE 102 FR0M 

AXB 


00432200 

04323 

10310 

01077767 


LAA 

*•9 

WRITE 0N MAG TAPE 3 

10/26/67 JDJ 

*B 00432300 

04324 

10311 

55100000 


CAUL 

H$WR 

EXECUTE 

JDJ 

8/11/67 

*B 00432400 

*T)'4325 - 

10-312 

35410317 

- • •, 

DAG 

AXB- 

auxerillary buffer . 

JDJ 

8/11/67 

•a ,,.ao.43«9aa. 

04326 

10313 

00000146 


DATA 

102 

WRITE 102 

JDJ 

8/11/67 

•B 00432600 

04327 

10314 

11310307 


BRU* 

WMGT 




00432700 

04328 

10315 

00000002 


BSS 

2 

SAVE AND EXTRA SPACE 

JDJ 

8/11/67 

*B 00432800 

04329 

10317 

00000146 

AXB 

BSS 

102 


JDJ 

8/11/67 

•B Q0432900 

04330 

10465 

00000002 


BSS 

2 

SPACERS 

JDJ 

8/11/67 

•B. 00433000 

04331 



* 






01 

04332 

10467 

00000000 

TE&F 


• * 




*E00 ) 

04333 

10470 

03100367 


STA 

TMP5 

SAVE L0GICAL DEVICE NUMBER 


»E004vi^ 

04334 

10471 

55100000 


CAUL 

ES0F7 

WRITE E0F 



*E00433^ 

04335 

10472 

12110533 


SPB 

TSTB 

TEST STATUS 



•EQ04335 

04336 

10473 

01100367 


LAA 

TMP5 




*E004336. 

04337 

10474 

55100000 


CAUL 

8IEF7 

BACKSPACE FILE 



•E00433700 

04338 

10475 

12110533 


SPB 

TSTB 

TEST STATUS 



•E00433800 

04339 

10476 

11310467 


BRU* 

TE0F 

RETURN 



•EQ0433900 

04340 



*«*«***«*«««#««*»»»*«»*»««*»«******»*««**«********* 


00434000 

04341 



«««»««»*« ««»*«« a*#*****######*##***###************#*- 


00434100 

04342 



• F0LL0WING INSERTED 

T0 ALL0W MAGNETIC TAPE INPUT - 

BINARY 08JECT 

00434200 

04343 



ft*************************** 


00434300 

04344 



• mag 

i TAPE 

: 0BJECT 0UT 

-WRITE BINARY 3 CHARACTERS 

PER 

W0RD 

00434400 

04345 



» 






00434500 

04346 

10477 

02077622 

0BMG 

U-BA 

*•110 

PACK 2 CHAR PER W0RD 

10/26/67 JDJ 

*B 00434600 

04347 

10500 

01500362 


LAA 

PBUF *2 * 1 




00434700 

04348 

10501 

00001016 


LSL 

8 




00434800 

04349 

10502 

00000026 


IBS 





00434900 

04350 

10503 

0550036? 


AMA 

PBUF*2,1 




00435000 

04351 

10504 

16077777 


AMB 

*•1 


10/26/67 JDJ 

*B 00435100 
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04352 

10505 

00000006 


I AB 






0 0435200 

04353 

10506 

00000110 


RSA 

1 





00435300 

04354 

10507 

00000006 


I AB 






00435400 

04355 

10510 

03500273 


STA 

SC0D+56,1 





00435500 

04356 

10511 

00000117 


FLA 

1 





00435600 

04357 

10512 

00000026 


IBS 






00435700 

04358 

10513 

00000026 


IBS 






00435800 

04359 

10514 

11110500 


BRU 

0BMG+1 





00435900 

04360 

10515 

01077770 

WWRE 

LAA 

8 •* 8 

WRITE 0N TRANS 1 

10/26/67 

JDJ 

*B 

00436000 

04361 

10516 

55i00000 


CALL 

BSWR 





00436100 

04362 

10517 

35400204 


DAC 

SC0D+1 





00436200 

04363 

10520 

00000067 


DATA 

55 





00436300 

04364 

10521 

11102112 


BRU 

M0BJ 





. 00436400 

04365 

10522 

01100006 

0B^ 

LAA 

RECC 


MDL 2/11/69 

*C 


00436500 

04366 

10523 

00000002 


neg 


REC0RD C0UNTER 

MDL 2/11/69 

ftC 


00436600 

04367 

10524 

03100006 


STA 

RECC 

REC0RD C0UNTER 

MDL 2/11/69 

*C 


00436? 

04368 

10525 

01000007 

0BK1 

LAA 

87 


MDL 2/11/69 

«C 


004368C 

04369 

10526 

55100000 


CALL 

BSSP7 

BACK SPACE REC0RD 

MDL 2/11/69 

ftC 


00^369(1 

04370 

10527 

12110533 


SPB 

TSTB 


MDL 2/11/69 

*c 


0043700 

04371 

. 10530 

14i00006 


IMS 

RECC 


MDL 2/11/69 

*C 


0 0 4 3 71C 

04372 

10531 

11110525 


BRU 

0BK1 


MDL 2/11/69 

*c 


0043720u 

04373 

10532 

11106513 


BRU 

END2 


MDL 2/11/69 

»c 


00437300 

04374 

10533 

00000000 

TSTB 

**• 

# ft 





00437400 

04375 

10 534 

55100000 


CALL 

S$ST7 





00437500 

04376 

10535 

00000000 

TSTW 

*«• 

«« 





00437600 

04377 

10536 

01110535 


LAA 

*•1 





00437700 

04378 

10537 

00000024 


SAP 






00437800 

04379 

10540 

11110534 


BRU 

TSTB+1 





00437900 

04380 

10541 

11310533 


BRU* 

TSTB 





00438000 

04381 

10542 

00001274 

MARA 

BSS 

700 

MACR0 ST0RAGE AREA 

10/23/67 

JDJ 

«B 

00438100 

04382 

12036 

00000002 


BSS 

2 

SAFETY ST0PPER AREA 

10/23/67 

JDJ 

*B 

00438200 

04383 

12040 

37412035 

PMAX 

EAC 

*■3 

ADDRESS 0F END 0F MACR0 

10/23/67 

JDJ 

*B 

00438300 

04384 



« 




10/23/67 

JDJ 

*B 

00438400 

04385 

12041 

00000004 

W0RK 

BSS 

4 

GENERAL USAGE BY IND SUB 

10/23/67 

JDJ 

*B 

00438500 

04386 

12045 

00000040 

PLST 

BSS 

32 

ST0RAGE AREA F0R LIST PAR 

! 10/23/67 

JDJ 

oB 

00438600 

04387 

12105 

00000000 


F0RM 

8,8 


10/23/67 

JDJ 

»B 

0043870C 
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04388 

12105 

00000240 

TYPE 

FDAT 

0, •' » »/0,* » 

M* */Q#*» S’»/0,»• 

F» » 

11/09/67 

JDJ 


r u438800 

04388 

12106 

00000315 









• 

04388 

12107 

00000323 










04388 

12110 

00000306 










04389 

12111 

00000305 


fdat 

0*» • E» »/0.»* 

U^/O,*’ ’'/O.” 

• f 

11/09/67 

JDJ 

*B 

00438900 

04389 

12112 

00000325 










04389 

12113 

00000240 










04389 

12114 

00000240 










04390 

12115 

00000132 

TYPM 

8SS 

90 

NAME MACR0 TAB 30 

NAMES 

10/24/67 

JDJ 

*B 

00439000 

04391 

12247 

00012246 

ETM1 

EQU 

#•1 

END 0F NAME TABLE 


10/23/67 

JDJ 

*B 

00439100 

04392 

12247 

37412246 

ETMP 

EAC 

ETH1 

ABS ADR 0F END 0F 

TABLE 

10/23/67 

JDJ 


00439200 

04393 

12250 

oOoooooo 

AHTU 

DATA 

0 

INTERNAL MACR0 LABELS 

11/17/67 

JDJ 

• B 

00439300 

04394 

12251 

00000020 


BSS 

16 

base plus last assigned 
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